diff options
| author | Case Duckworth | 2021-04-04 23:10:37 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-04-04 23:10:37 -0500 |
| commit | 878334c9a81af35c77d92cd70bc9325afce39f6b (patch) | |
| tree | 02fe85e7551d1231c6064ccf097e08148209baa0 /lisp/acdw.el | |
| parent | Guile -> Scheme (diff) | |
| download | emacs-878334c9a81af35c77d92cd70bc9325afce39f6b.tar.gz emacs-878334c9a81af35c77d92cd70bc9325afce39f6b.zip | |
Fix acdw/reading-mode
Mismatched parens
Diffstat (limited to 'lisp/acdw.el')
| -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 | ||