procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(define-minor-mode): If BODY is empty, give the variable a doc string

Browse source 
that doesn't say don't set it directly.
This commit is contained in:
Richard M. Stallman 2005-06-08 15:54:43 +00:00
parent 96a017e43c
commit a566ce8e09
1 changed files with 10 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/emacs-lisp/easy-mmode.el
View file

@ -183,13 +183,18 @@ Use the command `%s' to change this variable." pretty-name mode))
(let ((curfile (or (and (boundp 'byte-compile-current-file) (let ((curfile (or (and (boundp 'byte-compile-current-file)
byte-compile-current-file) byte-compile-current-file)
load-file-name))) load-file-name))
`(defcustom ,mode ,init-value base-doc-string)
,(format "Non-nil if %s is enabled. (setq base-doc-string "Non-nil if %s is enabled.
See the command `%s' for a description of this minor-mode. See the command `%s' for a description of this minor-mode.
Setting this variable directly does not take effect; Setting this variable directly does not take effect;
use either \\[customize] or the function `%s'." use either \\[customize] or the function `%s'.")
pretty-name mode mode) (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 :set 'custom-set-minor-mode
:initialize 'custom-initialize-default :initialize 'custom-initialize-default
,@group ,@group