emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Custom/define-minor-mode problem


From: Michael Mauger
Subject: Re: Custom/define-minor-mode problem
Date: Mon, 22 Aug 2005 11:20:30 -0700 (PDT)

--- Michael Mauger <address@hidden> wrote:

> I noticed that my `recentf' menu of recently used files was suddenly
> empty.  (It actually has been an issue for a while, I just got around
> to addressing it today.)
> 
> Looking at an old copy of my .emacs, I noticed that the mode entry in
> `custom-set-variables' has changed.
> 
> Was  '(recentf-mode t nil (recentf))
> Now  '(recentf-mode t)
> 

There was no feedback on this.  The problem could arise with any minor
mode that has customized variables.  If no one objects, could it be
comitted? 

Thanks.

Here's the ChangeLog and final patch:

2005-08-22  Michael R. Mauger  <address@hidden>

        * emacs-lisp/easy-mmode.el (define-minor-mode): Add :require
        property to mode variable if loaded from a file.


Index: emacs/lisp/emacs-lisp/easy-mmode.el
===================================================================
RCS file: /c/cvsroot/emacs/emacs/lisp/emacs-lisp/easy-mmode.el,v
retrieving revision 1.70
diff -c -r1.70 easy-mmode.el
*** emacs/lisp/emacs-lisp/easy-mmode.el 22 Jul 2005 01:26:03 -0000      1.70
--- emacs/lisp/emacs-lisp/easy-mmode.el 22 Aug 2005 18:15:29 -0000
***************
*** 214,220 ****
               ,@type
               ,@(cond
                  ((not (and curfile require)) nil)
!                 ((not (eq require t)) `(:require ,require)))
               ,@(nreverse extra-keywords))))
  
         ;; The actual function.
--- 214,222 ----
               ,@type
               ,@(cond
                  ((not (and curfile require)) nil)
!                 ((not (eq require t)) `(:require ,require))
!                 (curfile `(:require ',(intern (file-name-sans-extension
!                                                (file-name-nondirectory 
curfile))))))
               ,@(nreverse extra-keywords))))
  
         ;; The actual function.





reply via email to

[Prev in Thread] Current Thread [Next in Thread]