diff options
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/acdw.el | 40 |
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 | ||