;;; menu-bar.el --- define a default menu bar
-;; Copyright (C) 1993-1995, 2000-2011 Free Software Foundation, Inc.
+;; Copyright (C) 1993-1995, 2000-2012 Free Software Foundation, Inc.
;; Author: RMS
;; Maintainer: FSF
menu-bar-separator)
(define-key menu [ps-print-region]
- `(menu-item ,(purecopy "Postscript Print Region (B+W)") ps-print-region
+ `(menu-item ,(purecopy "PostScript Print Region (B+W)") ps-print-region
:enable mark-active
:help ,(purecopy "Pretty-print marked region in black and white to PostScript printer")))
(define-key menu [ps-print-buffer]
- `(menu-item ,(purecopy "Postscript Print Buffer (B+W)") ps-print-buffer
+ `(menu-item ,(purecopy "PostScript Print Buffer (B+W)") ps-print-buffer
:enable (menu-bar-menu-frame-live-and-visible-p)
:help ,(purecopy "Pretty-print current buffer in black and white to PostScript printer")))
(define-key menu [ps-print-region-faces]
- `(menu-item ,(purecopy "Postscript Print Region")
+ `(menu-item ,(purecopy "PostScript Print Region")
ps-print-region-with-faces
:enable mark-active
:help ,(purecopy
"Pretty-print marked region to PostScript printer")))
(define-key menu [ps-print-buffer-faces]
- `(menu-item ,(purecopy "Postscript Print Buffer")
+ `(menu-item ,(purecopy "PostScript Print Buffer")
ps-print-buffer-with-faces
:enable (menu-bar-menu-frame-live-and-visible-p)
:help ,(purecopy "Pretty-print current buffer to PostScript printer")))
(define-key menu [props]
`(menu-item ,(purecopy "Text Properties") facemenu-menu))
- ;; ns-win.el said: Add spell for platorm consistency.
+ ;; ns-win.el said: Add spell for platform consistency.
(if (featurep 'ns)
(define-key menu [spell]
`(menu-item ,(purecopy "Spell") ispell-menu-map)))
(defun menu-set-font ()
"Interactively select a font and make it the default."
(interactive)
- (let ((font (if (fboundp 'x-select-font)
- (x-select-font)
- (mouse-select-font)))
- spec)
- (when font
- ;; Be careful here: when set-face-attribute is called for the
- ;; :font attribute, Emacs tries to guess the best matching font
- ;; by examining the other face attributes (Bug#2476).
- (set-face-attribute 'default (selected-frame)
- :width 'normal
- :weight 'normal
- :slant 'normal
- :font font)
- (let ((font-object (face-attribute 'default :font)))
- (dolist (f (frame-list))
- (and (not (eq f (selected-frame)))
- (display-graphic-p f)
- (set-face-attribute 'default f :font font-object)))
- (set-face-attribute 'default t :font font-object))
- (setq spec (list (list t (face-attr-construct 'default))))
- (put 'default 'customized-face spec)
- (custom-push-theme 'theme-face 'default 'user 'set spec)
- (put 'default 'face-modified nil))))
+ (set-frame-font (if (fboundp 'x-select-font)
+ (x-select-font)
+ (mouse-select-font))
+ nil t))
(defun menu-bar-options-save ()
"Save current values of Options menu items using Custom."