emacs, dot-emacs: Hacking outline mode.

[profile] / emacs

diff --git a/emacs b/emacs
index d1fb1412e6b13ecb4fbc056aa9be9f8fc0586339..5980490f515eee586d3d3921c46778060c5b6688 100644 (file)
--- a/emacs
+++ b/emacs
@@ -178,7 +178,11 @@
 
 (defvar mdw-black-background t)
 
-(eval-after-load "outline" '(require 'foldout))
+(eval-after-load "outline"
+  '(progn
+     (trap (require 'foldout))
+     (define-key outline-mode-prefix-map [?\C-r] 'reveal-mode)
+     (define-key outline-mode-prefix-map [?\C--] 'mdw-outline-collapse-all)))
 
 (setq cltl2-root-url (mdw-config 'cltl-url))
 (setq common-lisp-hyperspec-root (mdw-config 'hyperspec-url))