Mercurial > emacs
changeset 43993:f71c489afb5a
(menu-bar-options-menu): Cope if text-mode-hook is not a list.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 18 Mar 2002 09:06:35 +0000 |
| parents | 82c3e065a9c4 |
| children | cf0ef9dd4fe9 |
| files | lisp/menu-bar.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/menu-bar.el Mon Mar 18 06:45:49 2002 +0000 +++ b/lisp/menu-bar.el Mon Mar 18 09:06:35 2002 +0000 @@ -782,7 +782,9 @@ ;; -- 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 ()