2013-08-20 5 views

ответ

4

Как об этом:

(defun insert-my-files() 
    (interactive) 
    (let ((dir (read-directory-name "Directory to insert: "))) 
    (mapC#'(lambda (file) 
       (let ((file-full (concat dir file))) 
       (insert-file-contents file-full))) 
      (cddr (directory-files dir))))) 

Назовите это с M-x insert-my-files, и он будет вставить содержимое каталога, который вы поставляете.

+0

Спасибо, что сделал. – LinkReincarnate

+0

Я добавил 'file-name-as-directory' перед' read-directory-name', потому что первая попытка использования этой функции заключалась в вклеивании имени каталога без прямой косой черты, которая вызвала ошибку, поскольку эта функция предполагает, что имя каталога заканчивается прямой косой чертой. – lawlist

2

Я не знаю, если бы вы назвать это быстрый способ, но insert-file может быть использован для вставки файла в существующий буфер.

Для конкретного случая вы говорите, хотя, самый быстрый способ, вероятно, из командной строки: cat * > FinalResult.txt

+0

не уверен, почему ваше изменение было отклонено, но я исправил свой код, как вы предложили. Благодаря! – Tyler

Смежные вопросы