From f2b26178357f51b14e657c1b8a874d4af99c7625 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Thu, 26 Aug 2021 16:03:19 -0500
Subject: Change disabled-function logic.

Don't disable everything /first/, just enable things I want to enable.
---
 init.el | 30 +++++++++++++++++++-----------
 1 file changed, 19 insertions(+), 11 deletions(-)

(limited to 'init.el')

diff --git a/init.el b/init.el
index ced1a59..6d515e3 100644
--- a/init.el
+++ b/init.el
@@ -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.
-- 
cgit 1.4.1-21-gabe81