Mercurial > hg > xemacs-beta

comparison lisp/x-font-menu.el @ 442:abe6d1db359e r21-2-36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-36
author cvs
date Mon, 13 Aug 2007 11:35:02 +0200
parents 3ecd8885ac67
children 576fb035e263
comparison
equal deleted inserted replaced
441:72a7cfa4a488 442:abe6d1db359e
183 ;; We use the user-specified one if possible, else use the truename. 183 ;; We use the user-specified one if possible, else use the truename.
184 ;; If the user didn't specify one (with "-dt-*-*", for example) 184 ;; If the user didn't specify one (with "-dt-*-*", for example)
185 ;; get the truename and use the possibly suboptimal data from that. 185 ;; get the truename and use the possibly suboptimal data from that.
186 ;;;###autoload 186 ;;;###autoload
187 (defun* x-font-menu-font-data (face dcache) 187 (defun* x-font-menu-font-data (face dcache)
188 (defvar x-font-regexp)
189 (defvar x-font-regexp-foundry-and-family)
188 (let* ((case-fold-search t) 190 (let* ((case-fold-search t)
189 (domain (if font-menu-this-frame-only-p 191 (domain (if font-menu-this-frame-only-p
190 (selected-frame) 192 (selected-frame)
191 (selected-device))) 193 (selected-device)))
192 (name (font-instance-name (face-font-instance face domain))) 194 (name (font-instance-name (face-font-instance face domain)))