Mercurial > hg > xemacs-beta

comparison lisp/frame.el @ 2527:491f8cf78a9c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-01-28 02:58:38 by ben] Abstract font-list/color-list font-menu.el, font.el, frame.el, gtk-font-menu.el, minibuf.el, msw-faces.el, msw-font-menu.el, obsolete.el, x-faces.el, x-font-menu.el: list-fonts->font-list. Create color-list. Abstract out x/msw-specific versions and obsolete the x/msw-specific Lisp functions. console-impl.h, objects-gtk.c, objects-msw.c, objects-tty.c, objects-x.c, objects.c: list-fonts->font-list. Create color-list. Abstract out x/msw-specific versions and obsolete the x/msw-specific Lisp functions.
author ben
date Fri, 28 Jan 2005 02:58:52 +0000
parents 6a9afa282c8e
children fd1acd2f457a
comparison
equal deleted inserted replaced
2526:902d5bd9b75c 2527:491f8cf78a9c
992 (interactive 992 (interactive
993 (let* ((frame (selected-frame)) 993 (let* ((frame (selected-frame))
994 (completion-ignore-case t) 994 (completion-ignore-case t)
995 (font (completing-read "Font name: " 995 (font (completing-read "Font name: "
996 (mapcar #'list 996 (mapcar #'list
997 (list-fonts "*" frame)) 997 (font-list "*" frame))
998 nil nil nil nil 998 nil nil nil nil
999 (face-font-name 'default frame)))) 999 (face-font-name 'default frame))))
1000 (list font current-prefix-arg))) 1000 (list font current-prefix-arg)))
1001 (let* ((frame (selected-frame)) 1001 (let* ((frame (selected-frame))
1002 (fht (frame-pixel-height frame)) 1002 (fht (frame-pixel-height frame))