Mercurial > emacs
diff lisp/menu-bar.el @ 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 | ce181770fa8e |
children | ad3a52185c63 |
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 ()