[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/menu-bar.el,v
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/menu-bar.el,v |
Date: |
Tue, 10 Jun 2008 19:55:39 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Chong Yidong <cyd> 08/06/10 19:55:39
Index: menu-bar.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/menu-bar.el,v
retrieving revision 1.334
retrieving revision 1.335
diff -u -b -r1.334 -r1.335
--- menu-bar.el 6 Jun 2008 21:28:20 -0000 1.334
+++ menu-bar.el 10 Jun 2008 19:55:38 -0000 1.335
@@ -627,6 +627,22 @@
:button (:toggle . (and (default-boundp ',variable)
(default-value ',variable))))))
+;; Function for setting/saving default font.
+
+(defun menu-set-font ()
+ "Interactively select a font and make it the default."
+ (interactive)
+ (let ((font (if (functionp 'x-font-dialog)
+ (x-font-dialog)
+ (mouse-select-font)))
+ spec)
+ (when font
+ (set-face-attribute 'default nil :font font)
+ (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))))
+
;;; Assemble all the top-level items of the "Options" menu
(define-key menu-bar-options-menu [customize]
(list 'menu-item "Customize Emacs" menu-bar-custom-menu))
@@ -660,6 +676,8 @@
(and (get elt 'customized-value)
(customize-mark-to-save elt)
(setq need-save t)))
+ (and (get 'default 'customized-face)
+ (put 'default 'saved-face (get 'default 'customized-face)))
;; Save if we changed anything.
(when need-save
(custom-save-all))))
@@ -671,10 +689,10 @@
(define-key menu-bar-options-menu [custom-separator]
'("--"))
-(define-key menu-bar-options-menu [mouse-set-font]
- '(menu-item "Set Font/Fontset..." mouse-set-font
+(define-key menu-bar-options-menu [menu-set-font]
+ '(menu-item "Set Default Font..." menu-set-font
:visible (display-multi-font-p)
- :help "Select a font from list of known fonts/fontsets"))
+ :help "Select a default font"))
;; The "Show/Hide" submenu of menu "Options"
- [Emacs-diffs] Changes to emacs/lisp/menu-bar.el,v, Chong Yidong, 2008/06/06
- [Emacs-diffs] Changes to emacs/lisp/menu-bar.el,v,
Chong Yidong <=
- [Emacs-diffs] Changes to emacs/lisp/menu-bar.el,v, Chong Yidong, 2008/06/10
- [Emacs-diffs] Changes to emacs/lisp/menu-bar.el,v, Jason Rumney, 2008/06/10
- [Emacs-diffs] Changes to emacs/lisp/menu-bar.el,v, Glenn Morris, 2008/06/11
- [Emacs-diffs] Changes to emacs/lisp/menu-bar.el,v, Chong Yidong, 2008/06/12
- [Emacs-diffs] Changes to emacs/lisp/menu-bar.el,v, Glenn Morris, 2008/06/13