[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/easy-mmode.el

[Richard M . Stallman]

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