diff options
| author | Lars Magne Ingebrigtsen | 2011-07-12 14:58:24 +0200 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen | 2011-07-12 14:58:24 +0200 |
| commit | 48b76ddfd846041c7fb3d5c561a5930b078ee0f8 (patch) | |
| tree | 61a1f5ba0761a81cc1bd894fd3c97f530cb0fc93 /lisp | |
| parent | c2fd0368e4d50d9601fdde14fc5423b858f0d3e1 (diff) | |
| download | emacs-48b76ddfd846041c7fb3d5c561a5930b078ee0f8.tar.gz emacs-48b76ddfd846041c7fb3d5c561a5930b078ee0f8.zip | |
(menu-set-font): Clarify that the default will be saved
Fixes: debbugs:3527
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/menu-bar.el | 3 |
2 files changed, 5 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d503171245d..75c6eb01a1e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,5 +1,8 @@ | |||
| 1 | 2011-07-12 Lars Magne Ingebrigtsen <larsi@gnus.org> | 1 | 2011-07-12 Lars Magne Ingebrigtsen <larsi@gnus.org> |
| 2 | 2 | ||
| 3 | * menu-bar.el (menu-set-font): Clarify that the default will be | ||
| 4 | saved (bug#3527). | ||
| 5 | |||
| 3 | * progmodes/compile.el (compilation-error-regexp-alist-alist): | 6 | * progmodes/compile.el (compilation-error-regexp-alist-alist): |
| 4 | Fontise bytecomp Error lines more correctly (bug#2490). Fix | 7 | Fontise bytecomp Error lines more correctly (bug#2490). Fix |
| 5 | suggested by Johan Bockgård. | 8 | suggested by Johan Bockgård. |
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index caae40ed8c5..2954384d23b 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el | |||
| @@ -673,7 +673,8 @@ by \"Save Options\" in Custom buffers.") | |||
| 673 | ;; Function for setting/saving default font. | 673 | ;; Function for setting/saving default font. |
| 674 | 674 | ||
| 675 | (defun menu-set-font () | 675 | (defun menu-set-font () |
| 676 | "Interactively select a font and make it the default." | 676 | "Interactively select a font and make it the default. |
| 677 | This new default will be saved for future Emacs sessions." | ||
| 677 | (interactive) | 678 | (interactive) |
| 678 | (let ((font (if (fboundp 'x-select-font) | 679 | (let ((font (if (fboundp 'x-select-font) |
| 679 | (x-select-font) | 680 | (x-select-font) |