Mercurial > hg > xemacs-beta

comparison lisp/x11/x-menubar.el @ 104:cf808b4c4290 r20-1b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b4
author cvs
date Mon, 13 Aug 2007 09:16:51 +0200
parents a145efe76779
children 360340f9fd5f
comparison
equal deleted inserted replaced
103:30eda07fe280 104:cf808b4c4290
183 ["Command-Line Switches for `lpr'/`lp'..." 183 ["Command-Line Switches for `lpr'/`lp'..."
184 (setq lpr-switches 184 (setq lpr-switches
185 (read-expression "Switches for `lpr'/`lp': " 185 (read-expression "Switches for `lpr'/`lp': "
186 (format "%S" lpr-switches))) 186 (format "%S" lpr-switches)))
187 t] 187 t]
188 ["Pretty-Print With Color"
189 (setq ps-print-color-p (not ps-print-color-p))
190 :style toggle :selected ps-print-color-p]
191 ("Pretty-Print Paper Size" 188 ("Pretty-Print Paper Size"
192 ["Letter" 189 ["Letter"
193 (setq ps-paper-type 'letter) 190 (setq ps-paper-type 'letter)
194 :style radio 191 :style radio
195 :selected (eq ps-paper-type 'letter)] 192 :selected (eq ps-paper-type 'letter)]
236 ["B5" 233 ["B5"
237 (setq ps-paper-type 'b5) 234 (setq ps-paper-type 'b5)
238 :style radio 235 :style radio
239 :selected (eq ps-paper-type 'b5)] 236 :selected (eq ps-paper-type 'b5)]
240 ) 237 )
238 ["Enable Color Printing"
239 (progn
240 (set-face-background 'default "white")
241 (setq ps-print-color-p t))
242 t]
241 ) 243 )
242 ("\"Other Window\" Location" 244 ("\"Other Window\" Location"
243 ["Always in Same Frame" 245 ["Always in Same Frame"
244 (setq get-frame-for-buffer-default-instance-limit nil) 246 (setq get-frame-for-buffer-default-instance-limit nil)
245 :style radio 247 :style radio