Re: file-name-shadow-mode

[Luc Teirlinck <teirllm@dms.auburn.edu>]

Miles Bader wrote:

   > Seemingly, this has not happened yet.  I think the discussion petered
   > off after somebody asked how one could actually auto-enable some minor
   > mode.

   That was me...

   Does anyone have a quick answer to that question?

I believe that the reason you have problems is that define-minor-mode
uses `custom-initialize-default' as the Custom :initialize function.
That is correct if you want the minor mode disabled by default, but
not if you want it enabled by default.  Then you need to use
`custom-initialize-set'.  Passing an explicit :initialize keyword to
`define-minor-mode' does not seem to help: it gets ignored.  I believe
that `define-minor-mode' should use `custom-initialize-set' as the
:initialize function if :init-value is non-nil.  Then the patches
below would work.  _Currently they do not._  An alternate patch that
does work right now is to call `custom-reevaluate-setting' in
startup.el, but to me, that seems ugly.

===File ~/src-Makefile.in-diff==============================
*** Makefile.in	30 Nov 2004 16:57:14 -0600	1.307
--- Makefile.in	17 Mar 2005 20:58:22 -0600	
***************
*** 779,784 ****
--- 779,785 ----
  	${lispsource}emacs-lisp/timer.elc \
  	${lispsource}vc-hooks.elc \
  	${lispsource}ediff-hook.elc \
+ 	${lispsource}rfn-eshadow.elc \
  	VMS_SUPPORT \
  	MSDOS_SUPPORT \
  	WINNT_SUPPORT \
***************
*** 870,875 ****
--- 871,877 ----
  	../lisp/emacs-lisp/timer.elc \
  	../lisp/vc-hooks.elc \
  	../lisp/ediff-hook.elc \
+ 	../lisp/rfn-eshadow.elc \
  	../lisp/widget.elc \
  	../lisp/window.elc \
  	../lisp/version.el
============================================================

===File ~/loadup-diff=======================================
*** loadup.el	27 Dec 2004 15:02:07 -0600	1.135
--- loadup.el	17 Mar 2005 21:50:40 -0600	
***************
*** 192,197 ****
--- 192,198 ----
  
  (load "vc-hooks")
  (load "ediff-hook")
+ (load "rfn-eshadow")
  (message "%s" (garbage-collect))
  
  ;If you want additional libraries to be preloaded and their
============================================================

===File ~/rfn-eshadow-diff==================================
*** rfn-eshadow.el	02 Sep 2003 07:36:02 -0500	1.12
--- rfn-eshadow.el	17 Mar 2005 21:45:48 -0600	
***************
*** 207,212 ****
--- 207,214 ----
  With prefix argument ARG, turn on if positive, otherwise off.
  Returns non-nil if the new state is enabled."
    :global t
+   :init-value t
    :group 'minibuffer
    (if file-name-shadow-mode
        ;; Enable the mode
============================================================