在学校，编程往往是为了做习题，每当想法完成，只需要简单的 compile。但在 EMACS 里面，compile 函数却被分成了两部分：先是得定义待会编译时使用的命令， 然后再运行它，真是复杂。
看看下面的函数，对于简单的文件往往只需要一步就可以完成，举手之劳。
(defun sucha-smart-compile ()
"Simply compile your file according to the file type."
(interactive)
(save-some-buffers t)
(let
((compile-command nil)
(alist
(list '("\\.c$" . "gcc")
'("\\.cc$" . "g++")
'("\\.cpp$" . "g++"))))
(while (not (null alist))
(if (string-match (caar alist) (buffer-file-name))
(setq compile-command
(concat (cdar alist) " " (buffer-file-name))))
(setq alist (cdr alist)))
(if (null compile-command)
(setq compile-command
(read-from-minibuffer "Compile command: ")))
(compile compile-command)))
我们可以将真正的 compile 函数和上面的函数分别绑定在不同的按键上，需要的 时候可以根据情况选用，方便极了。不同的文件后缀名使用不同的编译命令，还可 以自己如上添加。
趁先在有时间，给主页换了下风格，暂时在 Opera 里看着还好，但是在 IE 里就 有点看不下去了，不知道在 Firefox 上会怎样，希望不会太差劲吧。
今年换了域名，接着换了风格，也该歇一下了，哈。
来到学校后反而堕落了，在家时还几乎天天为考车试而忙，早睡早起，除了春节那 几天，天天都出车，但是到了这里，一切都变了。
最近寝室其实都很忙，大部分兄弟的成绩都下来了，考得都不错，可是一想到自己， 压力就大了……
本站换域名喽，地址是 suchang.net，欢迎访问，:)
P.S: 更换了下地址。
车证终于到手了，练习了那么长时间，绷紧的神经终于可以放松一下，不过返校的 时间也到了。
早上考桩试，心里真的有点怕怕，倒车的时候，看桩的眼睛都有点花，不过还好， 一切顺利，一桩就过关。要是家里有车就好了，可以直接上路，还没看过驾驶证是 什么样子。
说到心里怕怕，被同学耻笑了一下，可是有压力才有动力。