连接emacs中的多个文件

Question

是否有快速（自动）方法使用emacs从目录中的所有文件创建一个长文件？ IE

>Text_1.txt

>{contents of Text_1}

>Text_2.txt

>{contents of text2}


>FinalResult.txt
>{contents of Text_1
>contents of Text2}

Answer 1

这个怎么样：

(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调用它，它将插入您提供的目录的内容。

Answer 2

我不知道你是否称之为快速方式，但可以使用insert-file将文件插入现有缓冲区。

对于您所讨论的特定情况，最快的方法可能来自命令行：cat * > FinalResult.txt