Mercurial > emacs
changeset 51507:e4e1e9a6becf
(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 | eb007228d1de |
| children | 60628e522943 |
| files | lisp/frame.el |
| diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
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