Mercurial > hg > xemacs-beta

comparison lisp/minibuf.el @ 462:0784d089fdc9 r21-2-46

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-46
author cvs
date Mon, 13 Aug 2007 11:44:37 +0200
parents 576fb035e263
children 7039e6323819
comparison
equal deleted inserted replaced
461:120ed4009e51 462:0784d089fdc9
2206 (defvar x-read-color-completion-table) 2206 (defvar x-read-color-completion-table)
2207 2207
2208 (defun read-color-completion-table () 2208 (defun read-color-completion-table ()
2209 (case (device-type) 2209 (case (device-type)
2210 ;; #### Evil device-type dependency 2210 ;; #### Evil device-type dependency
2211 (x 2211 ((x gtk)
2212 (if (boundp 'x-read-color-completion-table) 2212 (if (boundp 'x-read-color-completion-table)
2213 x-read-color-completion-table 2213 x-read-color-completion-table
2214 (let ((rgb-file (locate-file "rgb.txt" x-library-search-path)) 2214 (let ((rgb-file (locate-file "rgb.txt" x-library-search-path))
2215 clist color p) 2215 clist color p)
2216 (if (not rgb-file) 2216 (if (not rgb-file)