Mercurial > hg > xemacs-beta

comparison lisp/menubar-items.el @ 2376:3a1ce66c92fa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-11-08 14:17:00 by stephent] minor menubar improvements <87vfcga0ty.fsf_-_@tleepslib.sk.tsukuba.ac.jp> <87lldca0mw.fsf_-_@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Mon, 08 Nov 2004 14:17:03 +0000
parents 488b2f76d852
children ab71ad6ff3dd
comparison
equal deleted inserted replaced
2375:584bd806e13b 2376:3a1ce66c92fa
1715 :active (fboundp 'report-xemacs-bug)]))) 1715 :active (fboundp 'report-xemacs-bug)])))
1716 1716
1717 1717
1718 (defun init-menubar-at-startup () 1718 (defun init-menubar-at-startup ()
1719 "Don't call this. 1719 "Don't call this.
1720 Adds `Load .emacs' button to menubar when starting up with -q." 1720 Adds `Load init files' button to menubar when starting up with -q."
1721 (when (and (not load-user-init-file-p) 1721 ;; load-user-init-file finds the init files itself now
1722 (file-exists-p (expand-file-name ".emacs" "~"))) 1722 (when (not load-user-init-file-p)
1723 (add-menu-button 1723 (add-menu-button
1724 nil 1724 nil
1725 ["%_Load .emacs" 1725 ["%_Load init files"
1726 (progn 1726 (progn
1727 (mapc #'(lambda (buf) 1727 (mapc #'(lambda (buf)
1728 (with-current-buffer buf 1728 (with-current-buffer buf
1729 (delete-menu-item '("Load .emacs")))) 1729 (delete-menu-item '("Load init files"))))
1730 (buffer-list)) 1730 (buffer-list))
1731 (load-user-init-file)) 1731 (load-user-init-file))
1732 ] 1732 ]
1733 "Help"))) 1733 "Help")))
1734 1734
2044 (funcall (if (fboundp list-all-buffers-function) 2044 (funcall (if (fboundp list-all-buffers-function)
2045 list-all-buffers-function 2045 list-all-buffers-function
2046 'list-buffers))) 2046 'list-buffers)))
2047 2047
2048 2048
2049 ;;; The Options menu
2050
2051 ;; We'll keep those variables here for a while, in order to provide a
2052 ;; function for porting the old options file that a user may own to Custom.
2053
2054 (defvar options-save-faces nil
2055 "*Non-nil value means save-options will save information about faces.
2056 A nil value means save-options will not save face information.
2057 Set this non-nil only if you use M-x edit-faces to change face
2058 settings. If you use M-x customize-face or the \"Browse Faces...\"
2059 menu entry, you will see a button in the Customize Face buffer that you
2060 can use to permanently save your face changes.
2061
2062 M-x edit-faces is deprecated. Support for it and this variable will
2063 be discontinued in a future release.")
2064
2065 (defvar save-options-init-file nil
2066 "File into which to save forms to load the options file (nil for .emacs).
2067 Normally this is nil, which means save into your .emacs file (the value
2068 of `user-init-file'.")
2069
2070 (defvar save-options-file ".xemacs-options"
2071 "File to save options into.
2072 This file is loaded from your .emacs file.
2073 If this is a relative filename, it is put into the same directory as your
2074 .emacs file.")
2075
2076
2077
2078 ;;; The Help menu 2049 ;;; The Help menu
2079 2050
2080 (defun tutorials-menu-filter (menu-items) 2051 (defun tutorials-menu-filter (menu-items)
2081 (declare (special language-info-alist 2052 (declare (special language-info-alist
2082 current-language-environment 2053 current-language-environment