Index: emacs/lisp/emacs-lisp/easy-mmode.el
diff -c emacs/lisp/emacs-lisp/easy-mmode.el:1.64
emacs/lisp/emacs-lisp/easy-mmode.el:1.65
*** emacs/lisp/emacs-lisp/easy-mmode.el:1.64 Sat Jun 4 22:13:57 2005
--- emacs/lisp/emacs-lisp/easy-mmode.el Wed Jun 8 15:54:43 2005
***************
*** 183,195 ****
(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
--- 183,200 ----
(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
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
