diff options
| author | Case Duckworth | 2021-04-02 14:52:28 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-04-02 14:52:28 -0500 |
| commit | dc85520a6b48bb2ff9f66337698c8b42569d8747 (patch) | |
| tree | 422d6fed7f8f36e9d842dd3e0a2b891fdd7fc7b6 | |
| parent | Remove split-window-* advice (diff) | |
| download | emacs-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.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 | ||