Mercurial > hg > xemacs-beta

comparison lisp/faces.el @ 1139:c2550fff5469

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-12-03 14:02:49 by didierv] Small fix for set-face-background-pixmap-file
author didierv
date Tue, 03 Dec 2002 14:02:50 +0000
parents c6facab13185
children 2f2d12f4f93a
comparison
equal deleted inserted replaced
1138:05ed51332340 1139:c2550fff5469
633 "Read (and set) the background pixmap of FACE from FILE. 633 "Read (and set) the background pixmap of FACE from FILE.
634 This function is a simplified version of `set-face-background-pixmap', 634 This function is a simplified version of `set-face-background-pixmap',
635 designed for interactive use." 635 designed for interactive use."
636 (interactive 636 (interactive
637 (let* ((face (read-face-name "Set background pixmap of face: ")) 637 (let* ((face (read-face-name "Set background pixmap of face: "))
638 (default (and (face-background-pixmap-instance face)
639 ((image-instance-file-name
640 (face-background-pixmap-instance face)))))
638 (file (read-file-name 641 (file (read-file-name
639 (format "Set background pixmap of face %s to: " 642 (format "Set background pixmap of face %s to: "
640 (symbol-name face)) 643 (symbol-name face))
641 nil (image-instance-file-name 644 nil default t nil
642 (face-background-pixmap-instance face)) t nil
643 'background-pixmap-file-history))) 645 'background-pixmap-file-history)))
644 (list face (if (equal file "") nil file)))) 646 (list face (if (equal file "") nil file))))
645 (set-face-property face 'background-pixmap file)) 647 (set-face-property face 'background-pixmap file))
646 648
647 (defun face-display-table (face &optional locale tag-set exact-p) 649 (defun face-display-table (face &optional locale tag-set exact-p)