Mercurial > hg > xemacs-beta

comparison lisp/menubar-items.el @ 424:11054d720c21 r21-2-20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-20
author cvs
date Mon, 13 Aug 2007 11:26:11 +0200
parents 95016f13131a
children
comparison
equal deleted inserted replaced
423:28d9c139be4c 424:11054d720c21
988 (defun maybe-add-init-button () 988 (defun maybe-add-init-button ()
989 "Don't call this. 989 "Don't call this.
990 Adds `Load .emacs' button to menubar when starting up with -q." 990 Adds `Load .emacs' button to menubar when starting up with -q."
991 ;; by Stig@hackvan.com 991 ;; by Stig@hackvan.com
992 (cond 992 (cond
993 (init-file-user nil) 993 (load-user-init-file-p nil)
994 ((file-exists-p (expand-file-name ".emacs" "~")) 994 ((file-exists-p (expand-file-name ".emacs" "~"))
995 (add-menu-button nil 995 (add-menu-button nil
996 ["Load .emacs" 996 ["Load .emacs"
997 (progn (delete-menu-item '("Load .emacs")) 997 (progn (delete-menu-item '("Load .emacs"))
998 (load-user-init-file (user-login-name))) 998 (load-user-init-file (user-login-name)))