procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Miles Bader 2003-06-06 01:32:33 +00:00
parent d18c4f98bd
commit 9328929244
2 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
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

6
lisp/frame.el
View file

@ -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