Change disabled-function logic.
Don't disable everything /first/, just enable things I want to enable.
This commit is contained in:
parent
1962f8e0c8
commit
f2b2617835
28
init.el
28
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.
|
||||
|
|
Loading…
Reference in New Issue