comparison lisp/emacs-lisp/easy-mmode.el @ 90192:173dee4e2611

Revision: [e-mail]--gnu-2005/emacs--unicode--0--patch-61 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 353-357) - Update from CVS

90191:c766b49f5bbd

Use the command `%s' to change this variable." pretty-name mode))
	       (make-variable-buffer-local ',mode))

	  (let ((curfile (or (and (boundp 'byte-compile-current-file)
				  byte-compile-current-file)
			     load-file-name)))
	    `(defcustom ,mode ,init-value
	       ,(format "Non-nil if %s is enabled.
See the command `%s' for a description of this minor-mode.
Setting this variable directly does not take effect;
use either \\[customize] or the function `%s'."
			pretty-name mode mode)
	       :set 'custom-set-minor-mode
	       :initialize 'custom-initialize-default
	       ,@group
	       :type 'boolean
	       ,@(cond

90192:173dee4e2611

Use the command `%s' to change this variable." pretty-name mode))
	       (make-variable-buffer-local ',mode))

	  (let ((curfile (or (and (boundp 'byte-compile-current-file)
				  byte-compile-current-file)
			     load-file-name))
		base-doc-string)
	    (setq base-doc-string "Non-nil if %s is enabled.
See the command `%s' for a description of this minor-mode.
Setting this variable directly does not take effect;
use either \\[customize] or the function `%s'.")
	    (if (null body)
		(setq base-doc-string "Non-nil if %s is enabled.
See the command `%s' for a description of this minor-mode."))

	    `(defcustom ,mode ,init-value
	       ,(format base-doc-string pretty-name mode mode)
	       :set 'custom-set-minor-mode
	       :initialize 'custom-initialize-default
	       ,@group
	       :type 'boolean
	       ,@(cond