# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1016442395 0
# Node ID f71c489afb5a105bc8aef389d54e6cf75bbf7f9c
# Parent  82c3e065a9c4b9a56b580b006da5750523bcfde1
(menu-bar-options-menu): Cope if text-mode-hook is not a list.

diff -r 82c3e065a9c4 -r f71c489afb5a lisp/menu-bar.el
--- 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 ()