(mouse-set-font): Use set-frame-font.

b7d1d101 · Glenn Morris · eb22cb8c · b7d1d101 · b7d1d101
Commit b7d1d101 authored Oct 03, 2008 by Glenn Morris
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

lisp/ChangeLog lisp/ChangeLog +1 -0

lisp/mouse.el lisp/mouse.el +1 -1

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -5,6 +5,7 @@
 2008-10-03  Glenn Morris  <rgm@gnu.org>
  
 	* frame.el (set-default-font): Make obsolete.
+	* mouse.el (mouse-set-font): Use set-frame-font.
  
 	* jka-cmpr-hook.el (jka-compr-compression-info-list)
 	(jka-compr-mode-alist-additions): Also match `.tbz2'.

--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -2461,7 +2461,7 @@ choose a font."
 	(while fonts
 	  (condition-case nil
 	      (progn
-		(set-default-font (car fonts))
+		(set-frame-font (car fonts))
 		(setq font (car fonts))
 		(setq fonts nil))
 	    (error