summary refs log tree commit diff stats
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/acdw.el40
1 files changed, 20 insertions, 20 deletions
diff --git a/lisp/acdw.el b/lisp/acdw.el index 4fea896..79d5c70 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el
@@ -124,28 +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) 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
139 (dolist (mode '(display-fill-column-indicator-mode
140 simple-modeline-mode))
141 (when (fboundp mode)
142 (funcall mode +1)))
143 ;; modes to re-disable
144 (dolist (mode '(olivetti-mode
145 iscroll-mode))
146 (when (fboundp mode) 128 (when (fboundp mode)
147 (funcall mode -1))) 129 (funcall mode -1)))
148 (force-mode-line-update)))) 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
139 (dolist (mode '(display-fill-column-indicator-mode
140 simple-modeline-mode))
141 (when (fboundp mode)
142 (funcall mode +1)))
143 ;; modes to re-disable
144 (dolist (mode '(olivetti-mode
145 iscroll-mode))
146 (when (fboundp mode)
147 (funcall mode -1)))
148 (force-mode-line-update)))
149 149
150;;; Keymap & Mode 150;;; Keymap & Mode
151 151