From 9328929244e2f71ca0737b741be27f08fc345023 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Fri, 6 Jun 2003 01:32:33 +0000 Subject: [PATCH] (set-frame-font): Default to frame's current default font. --- lisp/ChangeLog | 4 ++++ lisp/frame.el | 6 ++++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 173a4e20ecb..7ae84fcd5e7 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2003-06-06 Miles Bader + + * frame.el (set-frame-font): Default to frame's current default font. + 2003-06-06 Kim F. Storm * info.el (Info-fontify-node): Don't refill over lines ending in a diff --git a/lisp/frame.el b/lisp/frame.el index 2934153eb98..8ed5776550e 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -1,6 +1,6 @@ ;;; frame.el --- multi-frame management independent of window systems -;; Copyright (C) 1993, 1994, 1996, 1997, 2000, 2001 +;; Copyright (C) 1993, 1994, 1996, 1997, 2000, 2001, 2003 ;; Free Software Foundation, Inc. ;; Maintainer: FSF @@ -816,7 +816,9 @@ pixels) is kept by adjusting the numbers of the lines and columns." (mapcar #'list ;; x-list-fonts will fail with an error ;; if this frame doesn't support fonts. - (x-list-fonts "*" nil (selected-frame)))))) + (x-list-fonts "*" nil (selected-frame))) + nil nil nil nil + (frame-parameter nil 'font)))) (list font current-prefix-arg))) (let (fht fwd) (if keep-size -- 2.39.2