diff options
| -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 |