Hello Reviewers!
Following applies to 21.0b67 and 21.2b13:
`maybe-add-init-button' is not correctly implemeted for Windows NT,
where
(expand-file-name ".emacs" "~")
is *not* equivalent to
(expand-file-name ".emacs" (user-login-name))
I believe a simple (and still correct) fix would be to change
(load-user-init-file (user-login-name)))
to
(load-user-init-file ""))
below.
I am willing to submit a patch if I can be sure it will be applied.
Regards,
Adrian
(defun maybe-add-init-button ()
"Don't call this.
Adds `Load .emacs' button to menubar when starting up with -q."
;; by Stig(a)hackvan.com
(cond
(init-file-user nil)
((file-exists-p (expand-file-name ".emacs" "~"))
(add-menu-button nil
["Load .emacs"
(progn (delete-menu-item '("Load .emacs"))
(load-user-init-file (user-login-name)))
]
"Help"))
(t nil)))
--
Adrian Aichner Teradyne GmbH, European Design Center
Integra Test Division Telephone +49/89/41861(0)-208
Dingolfinger Strasse 2 Fax +49/89/41861-217 (What is a Fax?)
D-81673 MUENCHEN E-mail adrian.aichner(a)teradyne.com