Mercurial > hg > xemacs-beta
changeset 2376:3a1ce66c92fa
[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 | 584bd806e13b |
children | bbba13600d74 |
files | lisp/ChangeLog lisp/menubar-items.el |
diffstat | 2 files changed, 17 insertions(+), 34 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sun Nov 07 22:52:23 2004 +0000 +++ b/lisp/ChangeLog Mon Nov 08 14:17:03 2004 +0000 @@ -1,3 +1,15 @@ +2004-09-22 Stephen J. Turnbull <stephen@xemacs.org> + + * menubar-items.el (save-options-file): + (save-options-init-file): + (options-save-faces): + Remove obsolete and unused variables. + +2004-09-22 Stephen J. Turnbull <stephen@xemacs.org> + + * menubar-items.el (init-menubar-at-startup): + XEmacs loads "init files", not ".emacs". + 2004-11-07 Malcolm Purvis <malcolmp@xemacs.org> * about.el (about-personal-info): Added my personal details.
--- a/lisp/menubar-items.el Sun Nov 07 22:52:23 2004 +0000 +++ b/lisp/menubar-items.el Mon Nov 08 14:17:03 2004 +0000 @@ -1717,16 +1717,16 @@ (defun init-menubar-at-startup () "Don't call this. -Adds `Load .emacs' button to menubar when starting up with -q." - (when (and (not load-user-init-file-p) - (file-exists-p (expand-file-name ".emacs" "~"))) +Adds `Load init files' button to menubar when starting up with -q." + ;; load-user-init-file finds the init files itself now + (when (not load-user-init-file-p) (add-menu-button nil - ["%_Load .emacs" + ["%_Load init files" (progn (mapc #'(lambda (buf) (with-current-buffer buf - (delete-menu-item '("Load .emacs")))) + (delete-menu-item '("Load init files")))) (buffer-list)) (load-user-init-file)) ] @@ -2046,35 +2046,6 @@ 'list-buffers))) -;;; The Options menu - -;; We'll keep those variables here for a while, in order to provide a -;; function for porting the old options file that a user may own to Custom. - -(defvar options-save-faces nil - "*Non-nil value means save-options will save information about faces. -A nil value means save-options will not save face information. -Set this non-nil only if you use M-x edit-faces to change face -settings. If you use M-x customize-face or the \"Browse Faces...\" -menu entry, you will see a button in the Customize Face buffer that you -can use to permanently save your face changes. - -M-x edit-faces is deprecated. Support for it and this variable will -be discontinued in a future release.") - -(defvar save-options-init-file nil - "File into which to save forms to load the options file (nil for .emacs). -Normally this is nil, which means save into your .emacs file (the value -of `user-init-file'.") - -(defvar save-options-file ".xemacs-options" - "File to save options into. -This file is loaded from your .emacs file. -If this is a relative filename, it is put into the same directory as your -.emacs file.") - - - ;;; The Help menu (defun tutorials-menu-filter (menu-items)