Mercurial > emacs

diff lisp/frame.el @ 51507:e4e1e9a6becf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(set-frame-font): Default to frame's current default font.
author Miles Bader <miles@gnu.org>
date Fri, 06 Jun 2003 01:32:03 +0000
parents 8444fb4d51cf
children 48f24a9d5a64
line wrap: on
line diff
--- a/lisp/frame.el	Thu Jun 05 23:56:32 2003 +0000
+++ b/lisp/frame.el	Fri Jun 06 01:32:03 2003 +0000
@@ -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 @@
 			 (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