Emacs 墨镜

pluskid

在
EmacsWiki
上看到的代码：
[color="#add8e6"];;; [color="#add8e6"]Luke Gorrie                                          
([color="#afeeee"]defun [color="#7fffd4"]activate-peril-sensitive-sunglasses ()
  [color="#87cefa"]"With apologies to Zaphod Beeblebrox."
  (interactive)
  (mapc ([color="#afeeee"]lambda (face)
          (set-face-foreground face [color="#87cefa"]"black")
          (set-face-background face [color="#87cefa"]"black"))                                   
        (face-list)))
呵呵！如果你的 Emacs 里面还有什么重要的东西没有弄完，千万不要直接调用这个函数哟！否则你的 Emacs 就是一片漆黑了！哈哈！这个墨镜可是不容易取下来的哟！

本文来自ChinaUnix博客，如果查看原文请点：http://blog.chinaunix.net/u/18458/showart_107956.html