Commit c3f9cd46 authored by Jason Rumney's avatar Jason Rumney
Browse files

(list-colors-duplicates): w32-default-color-map is a function.

parent 973e7849
2009-04-18 Jason Rumney <jasonr@gnu.org>
* facemenu.el (list-colors-duplicates): w32-default-color-map is
a function (Bug#3044).
2009-04-18 ARISAWA Akihiro <ari@mbf.ocn.ne.jp> 2009-04-18 ARISAWA Akihiro <ari@mbf.ocn.ne.jp>
   
* epa-file.el (epa-file-decode-and-insert): Use * epa-file.el (epa-file-decode-and-insert): Use
......
...@@ -537,8 +537,8 @@ a list of colors that the current display can handle." ...@@ -537,8 +537,8 @@ a list of colors that the current display can handle."
(l list)) (l list))
(while (cdr l) (while (cdr l)
(if (and (facemenu-color-equal (car (car l)) (car (car (cdr l)))) (if (and (facemenu-color-equal (car (car l)) (car (car (cdr l))))
(not (if (boundp 'w32-default-color-map) (not (if (fboundp 'w32-default-color-map)
(not (assoc (car (car l)) w32-default-color-map))))) (not (assoc (car (car l)) (w32-default-color-map))))))
(progn (progn
(setcdr (car l) (cons (car (car (cdr l))) (cdr (car l)))) (setcdr (car l) (cons (car (car (cdr l))) (cdr (car l))))
(setcdr l (cdr (cdr l)))) (setcdr l (cdr (cdr l))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment