Mercurial > hg > xemacs-beta

diff lisp/menubar-items.el @ 361:7347b34c275b r21-1-10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-10
author cvs
date Mon, 13 Aug 2007 10:58:40 +0200
parents 8429d81ab209
children 30d2cfa1092a
line wrap: on
line diff
--- a/lisp/menubar-items.el	Mon Aug 13 10:57:57 2007 +0200
+++ b/lisp/menubar-items.el	Mon Aug 13 10:58:40 2007 +0200
@@ -962,16 +962,20 @@
 (defun maybe-add-init-button ()
   "Don't call this.
 Adds `Load .emacs' button to menubar when starting up with -q."
-  ;; by Stig@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"))
+    (add-menu-button
+     nil
+     ["Load .emacs"
+      (progn
+	(mapc #'(lambda (buf)
+		 (with-current-buffer buf
+		   (delete-menu-item '("Load .emacs"))))
+	      (buffer-list))
+	(load-user-init-file (user-login-name)))
+      ]
+     "Help"))
    (t nil)))
 
 (add-hook 'before-init-hook 'maybe-add-init-button)