Mercurial > hg > xemacs-beta

diff lisp/specifier.el @ 630:ff9d7f21f8d0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-07-18 12:44:51 by stephent] define-specifier-tag 'gtk.
author stephent
date Wed, 18 Jul 2001 12:44:52 +0000
parents abe6d1db359e
children 943eaba38521
line wrap: on
line diff
--- a/lisp/specifier.el	Sun Jul 15 08:18:59 2001 +0000
+++ b/lisp/specifier.el	Wed Jul 18 12:44:52 2001 +0000
@@ -600,6 +600,8 @@
 (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