# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1054863123 0
# Node ID e4e1e9a6becf83f488bf998462f28285cbe83183
# Parent  eb007228d1de333b3c4879e25649145cd88fa325
(set-frame-font): Default to frame's current default font.

diff -r eb007228d1de -r e4e1e9a6becf lisp/frame.el
--- 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