如何为Emacs定义一个编译当前文件的命令

pluskid

每次调用M-x compile来调用太麻烦了，而且有时候要用make，有时侯是直接用gcc 编译当前是文件。
我想写一个函数，比如叫gcc，用M-x gcc来调用的时候，采用gcc -Wall (当前正在编辑的文件名)来编译，同时又要能想compile编译的时候那样把错误列出到一个*compilation*的缓冲区里面，而且可以点击错误信息定位到原来的文件。
我查了一下compile函数，好像可以传递给它参数。但是我不知道如何把两个字符串联接在一起（就是把"gcc -Wall "和(buffer-name)［最好是能得到file-name］连在一起作为一个字符串传递给compile。请问这个东西该怎么写？
我的大概框架是：

1. 
   
2. (defun gcc ()
   
3.   (interactive "")
   
4.   (let ((old-command (compile-command)))
   
5.     (compile (字符串联接 "gcc -Wall " (文件名)))
   
6.     (setq compile-command old-command)
   
7.     )
   
8.   )
   

复制代码

中间不知道改如何填，还有不知道那个setq的用法是否正确，我是想保存原来的默认的compile的命令。

herberteuler

这样做的结果未必比使用 M-x compile 方便。在第一次使用 M-x compile 以后，就可以使用 M-x recompile 来编译了。在第一次使用 M-x recompile 以后，就可以使用 C-x ESC ESC 来编译了。按下 C-x ESC ESC 会在 Mini-buffer 中出现最近执行过的命令的列表，通常就是 recompile。如果不是，可以按几次 M-p，或者用 M-r 来搜索。所以我想如果用 make 的话会更方便一些。

可以用 concat 函数来连接字符串。你可能还会需要下面的代码：

1. (cd (file-name-directory buffer-file-name))
   
2. (file-name-nondirectory buffer-file-name)

复制代码

pluskid

呵呵！我这样做的原因是有时侯要临时写一些试验性的小文件，临时编译一下，但是又不改变先前的默认命令。
还有就是ESC键按起来好像很不方便呢。

pluskid

写好了！可以用了！呵呵！Emacs真是太强大了！

2. ;; compile simple c file use gcc
3. (defun gcc ()
4.   "compile simple use gcc"
5.   (interactive "")
6.   (let ((old-command compile-command))
7.     (cd (file-name-directory buffer-file-name))
8.     (compile (concat "gcc -Wall " (file-name-nondirectory buffer-file-name)))
9.     (setq compile-command old-command)
10.     )
11.   )

复制代码

herberteuler

原来的当前目录是不是也要恢复一下？

pluskid

我发现Emacs好像我buffer到那个文件之后它自动cd到这个文件所在的目录呀。
如果我到了当前要编译的buffer，它不是自动cd到当前目录了吗？是不是根本不用cd命令呀？

herberteuler

好像是的，Sorry :p

pluskid

唉唉！有时间一定要好好学习一下emacs的lisp。

herberteuler

C-h i memacs lisp introduction RET
C-h i melisp RET