diff options
| author | Richard M. Stallman <rms@gnu.org> | 2002-03-18 09:06:35 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2002-03-18 09:06:35 +0000 |
| commit | e51c889c5db3388fa2fbc29b4c0d35a32f36c365 (patch) | |
| tree | 34246f540d1b8a93dd33a39c952576517e3aa534 /lisp/menu-bar.el | |
| parent | 506280c317b15bc8fd6efd4d875d1fa59680ee5f (diff) | |
| download | emacs-e51c889c5db3388fa2fbc29b4c0d35a32f36c365.tar.gz | |
(menu-bar-options-menu): Cope if text-mode-hook is not a list.
Diffstat (limited to 'lisp/menu-bar.el')
| -rw-r--r-- | lisp/menu-bar.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 2e085759eab..ad49784a312 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -782,7 +782,9 @@ Do the same for the keys of the same name." ;; -- Per Abrahamsen <abraham@dina.kvl.dk> 2002-02-11. (customize-mark-as-set 'text-mode-hook)) :help "Automatically fill text between left and right margins" - :button (:toggle . (member 'turn-on-auto-fill text-mode-hook)))) + :button (:toggle . (if (listp text-mode-hook) + (member 'turn-on-auto-fill text-mode-hook) + (eq 'turn-on-auto-fill text-mode-hook))))) (define-key menu-bar-options-menu [truncate-lines] '(menu-item "Truncate Long Lines in this Buffer" (lambda () |