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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2e4da9a..a94b358 100644 (file)
--- 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 e8adeb8..0ad7aa5 100644 (file)
--- 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