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

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