(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 2e085759eab081244e800865d0557a107dd11f79..ad49784a312180d8f029a757e348131b7dfffe9b 100644 (file)
--- 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 ()