changeset 630:ff9d7f21f8d0

[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 a6c89d799f00
children abac34c62a39
files lisp/ChangeLog lisp/specifier.el
diffstat 2 files changed, 6 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Sun Jul 15 08:18:59 2001 +0000
+++ b/lisp/ChangeLog	Wed Jul 18 12:44:52 2001 +0000
@@ -1,3 +1,7 @@
+2001-07-18  Stephen J. Turnbull  <stephen@xemacs.org>
+
+	* specifier.el: define-specifier-tag 'gtk.
+
 2001-07-15  Adrian Aichner  <adrian@xemacs.org>
 
 	* about.el (about-personal-info): Fix word duplication typos.
--- 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