unofficial mirror of emacs-devel@gnu.org 
 help / color / mirror / code / Atom feed
* customize-mark-as-set for M-x foo-mode
@ 2002-08-19 20:55 Stefan Monnier
  2002-08-21  0:12 ` Richard Stallman
  0 siblings, 1 reply; 9+ messages in thread
From: Stefan Monnier @ 2002-08-19 20:55 UTC (permalink / raw)



I see that all the minor-mode-like things in the menu-bar
do (customize-mark-as-set 'foo).  I also saw Per's comment
that this should only be done when the command is executed
interactively.

Is there any reason why it's only executed when run from the
menu-bar rather than from M-x ?

I.e. any objection to doing it for all global minor-modes whenever they are
called interactively ?


	Stefan


--- easy-mmode.el.~1.40.~	Wed Aug 14 21:04:45 2002
+++ easy-mmode.el	Mon Aug 19 16:50:45 2002
@@ -190,11 +185,13 @@
 	 ,@body
 	 ;; The on/off hooks are here for backward compatibility only.
 	 (run-hooks ',hook (if ,mode ',hook-on ',hook-off))
-	 ;; Return the new setting.
 	 (if (interactive-p)
+	     (progn
+	       ,(if globalp `(customize-mark-as-set ',mode))
 	     (message ,(format "%s %%sabled" pretty-name)
-		      (if ,mode "en" "dis")))
+			(if ,mode "en" "dis"))))
 	 (force-mode-line-update)
+	 ;; Return the new setting.
 	 ,mode)
 
        ;; Autoloading an easy-mmode-define-minor-mode autoloads

^ permalink raw reply	[flat|nested] 9+ messages in thread

end of thread, other threads:[~2002-08-28 23:32 UTC | newest]

Thread overview: 9+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2002-08-19 20:55 customize-mark-as-set for M-x foo-mode Stefan Monnier
2002-08-21  0:12 ` Richard Stallman
2002-08-21 15:29   ` Stefan Monnier
2002-08-22  1:57     ` Richard Stallman
2002-08-22 15:23       ` Stefan Monnier
2002-08-26 12:22     ` Per Abrahamsen
2002-08-27 19:05       ` Richard Stallman
2002-08-28  0:03         ` Stefan Monnier
2002-08-28 23:32           ` Richard Stallman

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).