Mercurial > hg > xemacs-beta

comparison lisp/utils/live-icon.el @ 124:9b50b4588a93 r20-1b15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b15
author cvs
date Mon, 13 Aug 2007 09:26:39 +0200
parents 0293115a14e9
children 34a5b81f86ba
comparison
equal deleted inserted replaced
123:c77884c6318d 124:9b50b4588a93
35 "Do backward compatible things to faces and colours" 35 "Do backward compatible things to faces and colours"
36 (if (and (boundp 'emacs-major-version) 36 (if (and (boundp 'emacs-major-version)
37 (or (> emacs-major-version 19) 37 (or (> emacs-major-version 19)
38 (and (= emacs-major-version 19) 38 (and (= emacs-major-version 19)
39 (>= emacs-minor-version 12)))) 39 (>= emacs-minor-version 12))))
40 (let ((colour (if bg-p 40 (let* ((face (if (consp face) (car face) face))
41 (face-background face) 41 (colour (if bg-p
42 (face-foreground face)))) 42 (face-background face)
43 (face-foreground face))))
43 (if (consp colour) 44 (if (consp colour)
44 (setq colour (cdr (car colour)))) 45 (setq colour (cdr (car colour))))
45 (if (color-instance-p colour) 46 (if (color-instance-p colour)
46 (setq colour (color-instance-name colour))) 47 (setq colour (color-instance-name colour)))
47 (if (specifierp colour) 48 (if (specifierp colour)