XEmacs 21.4.4 "Artificial Intelligence".

[chise/xemacs-chise.git.1] / lisp / specifier.el

diff --git a/lisp/specifier.el b/lisp/specifier.el
index 08b037e..fb26c2e 100644 (file)
--- 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