Mercurial > hg > xemacs-beta
comparison lisp/specifier.el @ 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 | abe6d1db359e |
| children | 943eaba38521 |
comparison
equal
deleted
inserted
replaced
| 629:a6c89d799f00 | 630:ff9d7f21f8d0 |
|---|---|
| 598 (or (valid-specifier-tag-p 'tty) | 598 (or (valid-specifier-tag-p 'tty) |
| 599 (define-specifier-tag 'tty (lambda (dev) (eq (device-type dev) 'tty)))) | 599 (define-specifier-tag 'tty (lambda (dev) (eq (device-type dev) 'tty)))) |
| 600 (or (valid-specifier-tag-p 'mswindows) | 600 (or (valid-specifier-tag-p 'mswindows) |
| 601 (define-specifier-tag 'mswindows (lambda (dev) | 601 (define-specifier-tag 'mswindows (lambda (dev) |
| 602 (eq (device-type dev) 'mswindows)))) | 602 (eq (device-type dev) 'mswindows)))) |
| 603 (or (valid-specifier-tag-p 'gtk) | |
| 604 (define-specifier-tag 'gtk (lambda (dev) (eq (device-type dev) 'gtk)))) | |
| 603 | 605 |
| 604 ;; Add special tag for use by initialization code. Code that | 606 ;; Add special tag for use by initialization code. Code that |
| 605 ;; sets up default specs should use this tag. Code that needs to | 607 ;; sets up default specs should use this tag. Code that needs to |
| 606 ;; override default specs (e.g. the X resource initialization | 608 ;; override default specs (e.g. the X resource initialization |
| 607 ;; code) can safely clear specs with this tag without worrying | 609 ;; code) can safely clear specs with this tag without worrying |