From b7d1d1018a0c90564e5c9bac8689966cd68628f4 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 3 Oct 2008 07:47:06 +0000 Subject: [PATCH] (mouse-set-font): Use set-frame-font. --- lisp/ChangeLog | 1 + lisp/mouse.el | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) 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 * 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 -- 2.39.5