Mercurial > hg > xemacs-beta

comparison lisp/menubar-items.el @ 506:39ccc7dd8077

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-05-05 08:39:59 by ben] Add Page Setup for Windows, take out Pretty Print. Implement Page Setup. Handle errors properly. Change top/bottom margin defaults to 0.5 inches.
author ben
date Sat, 05 May 2001 08:40:06 +0000
parents 7039e6323819
children 5bdbc721d46a
comparison
equal deleted inserted replaced
505:6495d35ba9df 506:39ccc7dd8077
139 :active (buffer-modified-p) 139 :active (buffer-modified-p)
140 :suffix (if put-buffer-names-in-file-menu (buffer-name) "")] 140 :suffix (if put-buffer-names-in-file-menu (buffer-name) "")]
141 ["Save %_As..." write-file] 141 ["Save %_As..." write-file]
142 ["Save So%_me Buffers" save-some-buffers] 142 ["Save So%_me Buffers" save-some-buffers]
143 "-----" 143 "-----"
144 ,@(if (eq system-type 'windows-nt)
145 '(["Page Set%_up..." generic-page-setup]))
144 ["%_Print" generic-print-buffer 146 ["%_Print" generic-print-buffer
145 :active (or (valid-specifier-tag-p 'msprinter) 147 :active (or (valid-specifier-tag-p 'msprinter)
146 (and (not (eq system-type 'windows-nt)) 148 (and (not (eq system-type 'windows-nt))
147 (fboundp 'lpr-buffer))) 149 (fboundp 'lpr-region)))
148 :suffix (if put-buffer-names-in-file-menu (concat (buffer-name) "...") 150 :suffix (if put-buffer-names-in-file-menu (concat (buffer-name) "...")
149 "...")] 151 "...")]
150 ["Prett%_y-Print" ps-print-buffer-with-faces 152 ,@(unless (eq system-type 'windows-nt)
151 :active (fboundp 'ps-print-buffer-with-faces) 153 '(["Prett%_y-Print" ps-print-buffer-with-faces
152 :suffix (if put-buffer-names-in-file-menu (buffer-name) "")] 154 :active (fboundp 'ps-print-buffer-with-faces)
155 :suffix (if put-buffer-names-in-file-menu (buffer-name) "")]))
153 "-----" 156 "-----"
154 ["%_Revert Buffer" revert-buffer 157 ["%_Revert Buffer" revert-buffer
155 :active (or buffer-file-name revert-buffer-function) 158 :active (or buffer-file-name revert-buffer-function)
156 :suffix (if put-buffer-names-in-file-menu (buffer-name) "")] 159 :suffix (if put-buffer-names-in-file-menu (buffer-name) "")]
157 ["Re%_cover File..." recover-file] 160 ["Re%_cover File..." recover-file]