diff options
-rw-r--r-- | lisp/acdw.el | 37 |
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 | ||