From: Richard M. Stallman Date: Mon, 18 Mar 2002 09:06:35 +0000 (+0000) Subject: (menu-bar-options-menu): Cope if text-mode-hook is not a list. X-Git-Tag: ttn-vms-21-2-B4~16105 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e51c889c5db3388fa2fbc29b4c0d35a32f36c365;p=emacs.git (menu-bar-options-menu): Cope if text-mode-hook is not a list. --- 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 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 ()