Commit 93289292 authored by Miles Bader's avatar Miles Bader
Browse files

(set-frame-font): Default to frame's current default font.

parent d18c4f98
2003-06-06 Miles Bader <miles@gnu.org>
* frame.el (set-frame-font): Default to frame's current default font.
2003-06-06 Kim F. Storm <storm@cua.dk>
* info.el (Info-fontify-node): Don't refill over lines ending in a
......
;;; 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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment