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