Mercurial > emacs

diff lisp/facemenu.el @ 103020:7fb0884440b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 a9dc0e7c3f2b
children 6ee860194ef5
line wrap: on
line diff
--- 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))))