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

Import from CVS: tag r21-2-46
author cvs
date Mon, 13 Aug 2007 11:44:37 +0200
parents 576fb035e263
children 7039e6323819
line wrap: on
line diff
--- a/lisp/minibuf.el	Mon Aug 13 11:43:25 2007 +0200
+++ b/lisp/minibuf.el	Mon Aug 13 11:44:37 2007 +0200
@@ -2208,7 +2208,7 @@
 (defun read-color-completion-table ()
   (case (device-type)
     ;; #### Evil device-type dependency
-    (x
+    ((x gtk)
      (if (boundp 'x-read-color-completion-table)
 	 x-read-color-completion-table
        (let ((rgb-file (locate-file "rgb.txt" x-library-search-path))