Mercurial > hg > xemacs-beta

comparison lisp/font.el @ 388:aabb7f5b1c81 r21-2-9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-9
author cvs
date Mon, 13 Aug 2007 11:09:42 +0200
parents 8626e4521993
children
comparison
equal deleted inserted replaced
387:f892a9d0bb8d 388:aabb7f5b1c81
594 font)))) 594 font))))
595 595
596 ;;;###autoload 596 ;;;###autoload
597 (defun font-default-object-for-device (&optional device) 597 (defun font-default-object-for-device (&optional device)
598 (let ((font (font-default-font-for-device device))) 598 (let ((font (font-default-font-for-device device)))
599 (unless (cdr-safe (assoc font font-default-cache)) 599 (or (cdr-safe (assoc font font-default-cache))
600 (push (cons font (font-create-object font)) font-default-cache) 600 (let ((object (font-create-object font)))
601 (cdr-safe (assoc font font-default-cache))))) 601 (push (cons font object) font-default-cache)
602 object))))
602 603
603 ;;;###autoload 604 ;;;###autoload
604 (defun font-default-family-for-device (&optional device) 605 (defun font-default-family-for-device (&optional device)
605 (font-family (font-default-object-for-device (or device (selected-device))))) 606 (font-family (font-default-object-for-device (or device (selected-device)))))
606 607