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

2 files changed, 2 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2e4da9a2ba5..a94b358919f 100644
--- 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'.
diff --git a/lisp/mouse.el b/lisp/mouse.el
index e8adeb88101..0ad7aa51d98 100644
--- 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