Change disabled-function logic.

Don't disable everything /first/, just enable things I want to enable.

1 files changed, 19 insertions, 11 deletions

@@ -202,18 +202,26 @@
   ;; for easy finding.
 
   ;; Enable all disabled commands.
-  (mapatoms (lambda (symbol)
-              (when (get symbol 'disabled)
-                (put symbol 'disabled nil))))
-
+  ;; This is an option, but I'm going to try /enabling/ just the ones that I
+  ;; use instead.
+  ;; (mapatoms (lambda (symbol)
+  ;;             (when (get symbol 'disabled)
+  ;;               (put symbol 'disabled nil))))
+
+  ;; Enable /some/ disabled commands
+  (dolist (enable-sym '(narrow-to-region
+                        dired-find-alternate-file
+                        narrow-to-page))
+    (put enable-sym 'disabled nil))
+  
   ;; Now, disable symbols as I wish.
-  (dolist (sym '(view-hello-file
-                 suspend-frame
-                 scroll-left
-                 scroll-right
-                 comment-set-column
-                 set-fill-column))
-    (put sym 'disabled t))
+  (dolist (disable-sym '(view-hello-file
+                         suspend-frame
+                         scroll-left
+                         scroll-right
+                         comment-set-column
+                         set-fill-column))
+    (put disable-sym 'disabled t))
   
   ;; And set the disabled function to something better than the default.
   ;; Now, I can run any disabled command, but I have to use M-x to do it.