Mercurial > emacs

comparison lisp/facemenu.el @ 16590:a0cfcb9f8033

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use w32 instead of ms-windows for window-system symbol
author Geoff Voelker <voelker@cs.washington.edu>
date Tue, 19 Nov 1996 06:59:17 +0000
parents a4588c1facee
children 5e66b1087c94
comparison
equal deleted inserted replaced
16589:ec300a10e407 16590:a0cfcb9f8033
489 A and B should be strings naming colors. 489 A and B should be strings naming colors.
490 This function queries the window-system server to find out what the 490 This function queries the window-system server to find out what the
491 color names mean. It returns nil if the colors differ or if it can't 491 color names mean. It returns nil if the colors differ or if it can't
492 determine the correct answer." 492 determine the correct answer."
493 (cond ((equal a b) t) 493 (cond ((equal a b) t)
494 ((and (memq window-system '(x ms-windows)) 494 ((and (memq window-system '(x w32))
495 (equal (x-color-values a) (x-color-values b)))) 495 (equal (x-color-values a) (x-color-values b))))
496 ((eq window-system 'pc) 496 ((eq window-system 'pc)
497 (and (x-color-defined-p a) (x-color-defined-p b) 497 (and (x-color-defined-p a) (x-color-defined-p b)
498 (eq (msdos-color-translate a) (msdos-color-translate b)))))) 498 (eq (msdos-color-translate a) (msdos-color-translate b))))))
499 499