about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-04-02 14:52:28 -0500
committerCase Duckworth2021-04-02 14:52:28 -0500
commitdc85520a6b48bb2ff9f66337698c8b42569d8747 (patch)
tree422d6fed7f8f36e9d842dd3e0a2b891fdd7fc7b6
parentRemove split-window-* advice (diff)
downloademacs-dc85520a6b48bb2ff9f66337698c8b42569d8747.tar.gz
emacs-dc85520a6b48bb2ff9f66337698c8b42569d8747.zip
Remove *disabling* of simple-modeline-mode from acdw/reading-mode
I can just overwrite the buffer-local `mode-line-format'.
-rw-r--r--lisp/acdw.el37
1 files changed, 18 insertions, 19 deletions
diff --git a/lisp/acdw.el b/lisp/acdw.el index b127827..4fea896 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el
@@ -124,29 +124,28 @@ directory."
124 'face '(:inherit italic)) 124 'face '(:inherit italic))
125 fmt)))) 125 fmt))))
126 ;; modes to disable 126 ;; modes to disable
127 (dolist (mode '(display-fill-column-indicator-mode)
128 (when (fboundp mode)
129 (funcall mode -1)))
130 ;; modes to enable
131 (dolist (mode '(iscroll-mode
132 olivetti-mode))
133 (when (fboundp mode)
134 (funcall mode +1))))
135 ;; turn off
136 ;; settings
137 (kill-local-variable 'mode-line-format)
138 ;; modes to re-enable
127 (dolist (mode '(display-fill-column-indicator-mode 139 (dolist (mode '(display-fill-column-indicator-mode
128 simple-modeline-mode)) 140 simple-modeline-mode))
129 (when (fboundp mode) 141 (when (fboundp mode)
130 (funcall mode -1))) 142 (funcall mode +1)))
131 ;; modes to enable 143 ;; modes to re-disable
132 (dolist (mode '(iscroll-mode 144 (dolist (mode '(olivetti-mode
133 olivetti-mode)) 145 iscroll-mode))
134 (when (fboundp mode) 146 (when (fboundp mode)
135 (funcall mode +1)))) 147 (funcall mode -1)))
136 ;; turn off 148 (force-mode-line-update))))
137 ;; settings
138 (kill-local-variable 'mode-line-format)
139 ;; modes to re-enable
140 (dolist (mode '(display-fill-column-indicator-mode
141 simple-modeline-mode))
142 (when (fboundp mode)
143 (funcall mode +1)))
144 ;; modes to re-disable
145 (dolist (mode '(olivetti-mode
146 iscroll-mode))
147 (when (fboundp mode)
148 (funcall mode -1)))
149 (force-mode-line-update)))
150 149
151;;; Keymap & Mode 150;;; Keymap & Mode
152 151