[S] Rework init-file migration

[Michael Sperber]

Thanks for the review!

"Stephen J. Turnbull" <stephen at xemacs.org> writes:

> Something like `user-init-file-migration-possible-p' might be better.

I've renamed to `ask-about-user-init-file-migration-p'.

>  > @@ -890,46 +895,63 @@ perform the migration at any time with M
>  >  
>  >  For backwards compatibility with, for example, older versions of XEmacs,
>  >  XEmacs can create a special old-style .emacs file in your home
>  > -directory which will load the relocated initialization code.")
>
> I know this was discussed years ago, but I'd like to reopen it.  Is
> this really a good idea?  My impression is that people who really do
> run multiple Emacsen these days are either developers or are more
> likely to be running both the One True Editor and the GNU product.

Depends on the user: That's why we ask.  (I answered "yes".)

Back then, it was mainly for compatibility with older XEmacsen where the
code from the init file would still work.

>  > -		    (princ "\nMoreover, a backup of your old .emacs file was created as\n")
>
> You don't need "moreover" here.  Makes you sound Shakespearean. :-)

You did see the "-" in front of that line, didn't you? :-)

2007-12-19  Mike Sperber  <mike at xemacs.org>

	* startup.el (ask-about-user-init-file-migration-p): Factored out
	check.
	(maybe-migrate-user-init-file):
	(migrate-user-init-file): Don't do a backup of ~/.emacs anymore.
	Instead, make only a manual adjustment of the file, if at all,
	i.e. don't go through customize magic anymore.
	(unmigrate-user-init-file): Don't use customize to set
	`load-home-init-file' anymore.
	(set-load-home-init-file): Add; performs the modification
	previously done through customize.
	(unmigrate-user-init-file): Use `set-load-home-init-file' instead
	of customize.
	(command-line-1): Only wait for the first event if we're not going
	to ask about migration.

-- 
Cheers =8-} Mike
Friede, Völkerverständigung und überhaupt blabla
-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: not available
Url: http://calypso.tux.org/pipermail/xemacs-patches/attachments/20071220/04b1f237/attachment-0001.pl