Mercurial > emacs
changeset 103020:7fb0884440b3
(list-colors-duplicates): w32-default-color-map is a function.
| author | Jason Rumney <jasonr@gnu.org> |
|---|---|
| date | Sat, 18 Apr 2009 13:50:08 +0000 |
| parents | 413229f94ec7 |
| children | c647b4bc74ad |
| files | lisp/ChangeLog lisp/facemenu.el |
| diffstat | 2 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Apr 18 13:29:59 2009 +0000 +++ b/lisp/ChangeLog Sat Apr 18 13:50:08 2009 +0000 @@ -1,3 +1,8 @@ +2009-04-18 Jason Rumney <jasonr@gnu.org> + + * facemenu.el (list-colors-duplicates): w32-default-color-map is + a function. + 2009-04-18 ARISAWA Akihiro <ari@mbf.ocn.ne.jp> * epa-file.el (epa-file-decode-and-insert): Use
--- a/lisp/facemenu.el Sat Apr 18 13:29:59 2009 +0000 +++ b/lisp/facemenu.el Sat Apr 18 13:50:08 2009 +0000 @@ -537,8 +537,8 @@ (l list)) (while (cdr l) (if (and (facemenu-color-equal (car (car l)) (car (car (cdr l)))) - (not (if (boundp 'w32-default-color-map) - (not (assoc (car (car l)) w32-default-color-map))))) + (not (if (fboundp 'w32-default-color-map) + (not (assoc (car (car l)) (w32-default-color-map)))))) (progn (setcdr (car l) (cons (car (car (cdr l))) (cdr (car l)))) (setcdr l (cdr (cdr l))))