X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fspecifier.el;h=fb26c2e5f6952f670db4522659a9ca0ece8fd213;hb=3ca93f4c76fca3afcbe47893ef6ac97b12a9c30b;hp=08b037e1c5102934db60a7156fa1ced4500d9331;hpb=e5cd8d4ed475af329be5df9627a53edd584fd3de;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/specifier.el b/lisp/specifier.el
index 08b037e..fb26c2e 100644
--- a/lisp/specifier.el
+++ b/lisp/specifier.el
@@ -600,6 +600,8 @@ detail in the doc string for `current-display-table'."
 (or (valid-specifier-tag-p 'mswindows)
     (define-specifier-tag 'mswindows (lambda (dev)
 				       (eq (device-type dev) 'mswindows))))
+(or (valid-specifier-tag-p 'gtk)
+    (define-specifier-tag 'gtk (lambda (dev) (eq (device-type dev) 'gtk))))
 
 ;; Add special tag for use by initialization code.  Code that
 ;; sets up default specs should use this tag.  Code that needs to