# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1223020011 0
# Node ID 82020c1ee454a7adae6f0cb051481ec0699ef7a8
# Parent  690412c68c409fd9fadd6b875269e3b3cafa7e3e
(mouse-set-font): Use set-frame-font.

diff -r 690412c68c40 -r 82020c1ee454 lisp/mouse.el
--- a/lisp/mouse.el	Fri Oct 03 07:43:58 2008 +0000
+++ b/lisp/mouse.el	Fri Oct 03 07:46:51 2008 +0000
@@ -2461,7 +2461,7 @@
 	(while fonts
 	  (condition-case nil
 	      (progn
-		(set-default-font (car fonts))
+		(set-frame-font (car fonts))
 		(setq font (car fonts))
 		(setq fonts nil))
 	    (error