Emacs 墨镜

在EmacsWiki上看到的代码：

;;; Luke Gorrie <luke at bluetail.com>                                          
(defun activate-peril-sensitive-sunglasses ()
  "With apologies to Zaphod Beeblebrox."
  (interactive)
  (mapc (lambda (face)
          (set-face-foreground face "black")
          (set-face-background face "black"))                                   
        (face-list)))

呵呵！如果你的 Emacs 里面还有什么重要的东西没有弄完，千万不要直接调用这个函数哟！否则你的 Emacs 就是一片漆黑了！哈哈！这个墨镜可是不容易取下来的哟！