>>>> On 04 Mar 2000 21:15:43 +0100, Andreas Jaeger
<aj(a)suse.de> said:
>>>> Vin Shelton writes:
Vin> I have applied the
first round of patches for 21.1.10 to the CVS
Vin> archive. Here's the list of patches applied; I think this covers all
Vin> the patches I currently have. Let me know if I've missed any.
Andreas> Just one note: I compiled 21.1.10 and noticed that I now have a "load
Andreas> .emacs" button in the menubar:
Andreas> This doesn't happen with the current 21.2 version from CVS.
Yes. I had tried 'xemacs -vanilla', but not without -vanilla.
I'm about to apply this fix:
Index: lisp/menubar-items.el
===================================================================
RCS file: /usr/CVSroot/XEmacs/xemacs/lisp/menubar-items.el,v
retrieving revision 1.16
diff -u -r1.16 menubar-items.el
--- menubar-items.el 2000/03/04 17:13:09 1.16
+++ menubar-items.el 2000/03/04 20:53:17
@@ -962,8 +962,9 @@
(defun maybe-add-init-button ()
"Don't call this.
Adds `Load .emacs' button to menubar when starting up with -q."
- (when (and (not init-file-loaded)
- (file-exists-p (expand-file-name ".emacs" "~")))
+ (cond
+ (init-file-user nil)
+ ((file-exists-p (expand-file-name ".emacs" "~"))
(add-menu-button
nil
["Load .emacs"
@@ -974,7 +975,8 @@
(buffer-list))
(load-user-init-file (user-login-name)))
]
- "Help")))
+ "Help"))
+ (t nil)))
(add-hook 'before-init-hook 'maybe-add-init-button)
- vin