Mercurial > hg > xemacs-beta

diff lisp/x11/x-font-menu.el @ 4:b82b59fe008d r19-15b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b3
author cvs
date Mon, 13 Aug 2007 08:46:56 +0200
parents ac2d302a0011
children 49a24b4fd526
line wrap: on
line diff
--- a/lisp/x11/x-font-menu.el	Mon Aug 13 08:46:35 2007 +0200
+++ b/lisp/x11/x-font-menu.el	Mon Aug 13 08:46:56 2007 +0200
@@ -452,6 +452,10 @@
 			       (or weight from-weight)
 			       (or size   from-size)
 			       default-name))
+    (setq save-options-font-hack (list 'font-menu-set-font
+				       (or family from-family)
+				       (or weight from-weight)
+				       (or size from-size)))
     (while faces
       (cond ((face-font-instance (car faces))
 	     (message "Changing font of `%s'..." (car faces))