1 |
;;; frame.el --- multi-frame management independent of window systems |
;;; frame.el --- multi-frame management independent of window systems |
2 |
|
|
3 |
;; Copyright (C) 1993, 1994, 1996, 1997, 2000, 2001 |
;; Copyright (C) 1993, 1994, 1996, 1997, 2000, 2001, 2003 |
4 |
;; Free Software Foundation, Inc. |
;; Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Maintainer: FSF |
;; Maintainer: FSF |
816 |
(mapcar #'list |
(mapcar #'list |
817 |
;; x-list-fonts will fail with an error |
;; x-list-fonts will fail with an error |
818 |
;; if this frame doesn't support fonts. |
;; if this frame doesn't support fonts. |
819 |
(x-list-fonts "*" nil (selected-frame)))))) |
(x-list-fonts "*" nil (selected-frame))) |
820 |
|
nil nil nil nil |
821 |
|
(frame-parameter nil 'font)))) |
822 |
(list font current-prefix-arg))) |
(list font current-prefix-arg))) |
823 |
(let (fht fwd) |
(let (fht fwd) |
824 |
(if keep-size |
(if keep-size |