Mercurial > hg > xemacs-beta

comparison lisp/x11/x-menubar.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children b82b59fe008d
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
166 ["Debug On Quit" (setq debug-on-quit (not debug-on-quit)) 166 ["Debug On Quit" (setq debug-on-quit (not debug-on-quit))
167 :style toggle :selected debug-on-quit] 167 :style toggle :selected debug-on-quit]
168 ) 168 )
169 ("Printing Options" 169 ("Printing Options"
170 ["Command-Line Switches for `lpr'/`lp'..." 170 ["Command-Line Switches for `lpr'/`lp'..."
171 (setq lpr-switches (read-string "Switches for `lpr'/`lp': " 171 (setq lpr-switches
172 lpr-switches)) 172 (read-expression "Switches for `lpr'/`lp': "
173 (format "%S" lpr-switches)))
173 t] 174 t]
174 ["Pretty-Print With Color" 175 ["Pretty-Print With Color"
175 (setq ps-print-color-p (not ps-print-color-p)) 176 (setq ps-print-color-p (not ps-print-color-p))
176 :style toggle :selected ps-print-color-p] 177 :style toggle :selected ps-print-color-p]
177 ("Pretty-Print Paper Size" 178 ("Pretty-Print Paper Size"
559 ["Getting the Latest Version" describe-distribution t]) 560 ["Getting the Latest Version" describe-distribution t])
560 ) 561 )
561 ))) 562 )))
562 563
563 564
564 ;;; Add Load Init button to menubar when starting up with -q
565 (defun maybe-add-init-button () 565 (defun maybe-add-init-button ()
566 "Don't call this.
567 Adds `Load .emacs' button to menubar when starting up with -q."
566 ;; by Stig@hackvan.com 568 ;; by Stig@hackvan.com
567 (cond 569 (cond
568 (init-file-user nil) 570 (init-file-user nil)
569 ((file-exists-p (cond 571 ((file-exists-p (cond
570 ((eq system-type 'ms-dos) 572 ((eq system-type 'ms-dos)
1111 (actual-save-options-file 1113 (actual-save-options-file
1112 (abbreviate-file-name 1114 (abbreviate-file-name
1113 (expand-file-name 1115 (expand-file-name
1114 save-options-file 1116 save-options-file
1115 (file-name-directory actual-save-options-init-file)) 1117 (file-name-directory actual-save-options-init-file))
1116 t)) 1118 ;; Don't hack-homedir in abbreviate-file-name. This will
1119 ;; cause an incorrect expansion if the save-options variables
1120 ;; have ~ in them.
1121 ))
1117 (init-output-buffer (find-file-noselect 1122 (init-output-buffer (find-file-noselect
1118 actual-save-options-init-file)) 1123 actual-save-options-init-file))
1119 init-output-marker 1124 init-output-marker
1120 (options-output-buffer 1125 (options-output-buffer
1121 (find-file-noselect actual-save-options-file)) 1126 (find-file-noselect actual-save-options-file))