diff options
| author | Case Duckworth | 2021-09-30 18:23:15 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-09-30 18:23:15 -0500 |
| commit | 4873990a706339cb47e0ec6a2954d2b2e8041b69 (patch) | |
| tree | fdfcff81d2118a6bfc9bbb0f24e65c0e20f6e6b2 /lisp | |
| parent | Update org-mode recipe (diff) | |
| download | emacs-4873990a706339cb47e0ec6a2954d2b2e8041b69.tar.gz emacs-4873990a706339cb47e0ec6a2954d2b2e8041b69.zip | |
Fix bug in acdw-reading.el
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/acdw-reading.el | 6 |
1 files changed, 4 insertions, 2 deletions
| diff --git a/lisp/acdw-reading.el b/lisp/acdw-reading.el index 5d43dac..e3d5716 100644 --- a/lisp/acdw-reading.el +++ b/lisp/acdw-reading.el | |||
| @@ -39,14 +39,16 @@ | |||
| 39 | (when (fboundp mode) | 39 | (when (fboundp mode) |
| 40 | (set (make-local-variable | 40 | (set (make-local-variable |
| 41 | (intern (format "//%s" mode))) | 41 | (intern (format "//%s" mode))) |
| 42 | (symbol-value mode)) | 42 | (and (boundp mode) |
| 43 | (symbol-value mode))) | ||
| 43 | (funcall mode -1))) | 44 | (funcall mode -1))) |
| 44 | ;; enable modes | 45 | ;; enable modes |
| 45 | (dolist (mode '(olivetti-mode)) | 46 | (dolist (mode '(olivetti-mode)) |
| 46 | (when (fboundp mode) | 47 | (when (fboundp mode) |
| 47 | (set (make-local-variable | 48 | (set (make-local-variable |
| 48 | (intern (format "//%s" mode))) | 49 | (intern (format "//%s" mode))) |
| 49 | (symbol-value mode)) | 50 | (and (boundp mode) |
| 51 | (symbol-value mode))) | ||
| 50 | (funcall mode +1)))) | 52 | (funcall mode +1)))) |
| 51 | ;; turn off | 53 | ;; turn off |
| 52 | ;; restore settings | 54 | ;; restore settings |