# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1098779500 0
# Node ID 0fcbc2db3d03925ace70f0f0fc20160f69b51871
# Parent  f633084f70ae98835157d06e32fd0696ecfaf480
(menu-bar-make-toggle): Instead of interactive-p,
use an arg set non-nil by the interactive spec.

diff -r f633084f70ae -r 0fcbc2db3d03 lisp/menu-bar.el
--- a/lisp/menu-bar.el	Tue Oct 26 08:27:26 2004 +0000
+++ b/lisp/menu-bar.el	Tue Oct 26 08:31:40 2004 +0000
@@ -596,10 +596,12 @@
 
 (defmacro menu-bar-make-toggle (name variable doc message help &rest body)
   `(progn
-     (defun ,name ()
+     (defun ,name (&optional interactively)
        ,(concat "Toggle whether to " (downcase (substring help 0 1))
-		(substring help 1) ".")
-       (interactive)
+		(substring help 1) ".\
+In an interactive call, record this option as a candidate for saving
+by \"Save Options\" in Custom buffers.")
+       (interactive "p")
        (if ,(if body `(progn . ,body)
 	      `(progn
 		 (custom-load-symbol ',variable)
@@ -612,7 +614,7 @@
        ;; a variable is set interactively, as the purpose is to mark it as
        ;; a candidate for "Save Options", and we do not want to save options
        ;; the user have already set explicitly in his init file.
-       (if (interactive-p) (customize-mark-as-set ',variable)))
+       (if interactively (customize-mark-as-set ',variable)))
      '(menu-item ,doc ,name
 		 :help ,help
                  :button (:toggle . (and (default-boundp ',variable)