about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-08-26 16:03:19 -0500
committerCase Duckworth2021-08-26 16:03:19 -0500
commitf2b26178357f51b14e657c1b8a874d4af99c7625 (patch)
treefebe0f05107204c5b9809fb286f085c34bb11fd5
parentChange C-o, M-o, M-l bindings (diff)
downloademacs-f2b26178357f51b14e657c1b8a874d4af99c7625.tar.gz
emacs-f2b26178357f51b14e657c1b8a874d4af99c7625.zip
Change disabled-function logic.
Don't disable everything /first/, just enable things I want to enable.
-rw-r--r--init.el30
1 files changed, 19 insertions, 11 deletions
diff --git a/init.el b/init.el index ced1a59..6d515e3 100644 --- a/init.el +++ b/init.el
@@ -202,18 +202,26 @@
202 ;; for easy finding. 202 ;; for easy finding.
203 203
204 ;; Enable all disabled commands. 204 ;; Enable all disabled commands.
205 (mapatoms (lambda (symbol) 205 ;; This is an option, but I'm going to try /enabling/ just the ones that I
206 (when (get symbol 'disabled) 206 ;; use instead.
207 (put symbol 'disabled nil)))) 207 ;; (mapatoms (lambda (symbol)
208 208 ;; (when (get symbol 'disabled)
209 ;; (put symbol 'disabled nil))))
210
211 ;; Enable /some/ disabled commands
212 (dolist (enable-sym '(narrow-to-region
213 dired-find-alternate-file
214 narrow-to-page))
215 (put enable-sym 'disabled nil))
216
209 ;; Now, disable symbols as I wish. 217 ;; Now, disable symbols as I wish.
210 (dolist (sym '(view-hello-file 218 (dolist (disable-sym '(view-hello-file
211 suspend-frame 219 suspend-frame
212 scroll-left 220 scroll-left
213 scroll-right 221 scroll-right
214 comment-set-column 222 comment-set-column
215 set-fill-column)) 223 set-fill-column))
216 (put sym 'disabled t)) 224 (put disable-sym 'disabled t))
217 225
218 ;; And set the disabled function to something better than the default. 226 ;; And set the disabled function to something better than the default.
219 ;; Now, I can run any disabled command, but I have to use M-x to do it. 227 ;; Now, I can run any disabled command, but I have to use M-x to do it.