X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/profile/blobdiff_plain/c3ee39abd770ddfa04264cd4393eb1bbf8aa4c2b..5de5db48aebed6598462453f75f39f57c650a6c3:/emacs

diff --git a/emacs b/emacs
index d1fb141..5980490 100644
--- 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))