Mercurial > hg > xemacs-beta

comparison lisp/specifier.el @ 263:727739f917cb r20-5b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b30
author cvs
date Mon, 13 Aug 2007 10:24:41 +0200
parents 78478c60bfcd
children 57709be46d1b
comparison
equal deleted inserted replaced
262:9d8607af9e13 263:727739f917cb
419 (define-specifier-tag 'tty (lambda (dev) (eq (device-type dev) 'tty)))) 419 (define-specifier-tag 'tty (lambda (dev) (eq (device-type dev) 'tty))))
420 (or (valid-specifier-tag-p 'mswindows) 420 (or (valid-specifier-tag-p 'mswindows)
421 (define-specifier-tag 'mswindows (lambda (dev) 421 (define-specifier-tag 'mswindows (lambda (dev)
422 (eq (device-type dev) 'mswindows)))) 422 (eq (device-type dev) 'mswindows))))
423 423
424 ;; Add special tag for use by initialization code. Code that
425 ;; sets up default specs should use this tag. Code that needs to
426 ;; override default specs (e.g. the X resource initialization
427 ;; code) can safely clear specs with this tag without worrying
428 ;; about clobbering user settings.
429
430 (define-specifier-tag 'default)
431
424 ;;; specifier.el ends here 432 ;;; specifier.el ends here