Mercurial > hg > xemacs-beta

comparison lisp/specifier.el @ 4194:4f2243a0dc04

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-09-30 11:59:34 by aidan] Provide x-resource, msprinter as specifier tags on all builds.
author aidan
date Sun, 30 Sep 2007 11:59:36 +0000
parents 74b10360eef9
children b75b075a9041
comparison
equal deleted inserted replaced
4193:6438d53aabcf 4194:4f2243a0dc04
603 ;; 603 ;;
604 ;; (set-face-foreground 'default "black" nil '(x color)) 604 ;; (set-face-foreground 'default "black" nil '(x color))
605 ;; 605 ;;
606 ;; from producing an error if no X support was compiled in. 606 ;; from producing an error if no X support was compiled in.
607 607
608 (or (valid-specifier-tag-p 'x) 608 (loop
609 (define-specifier-tag 'x (lambda (dev) (eq (device-type dev) 'x)))) 609 for tag in '(x tty mswindows msprinter gtk carbon)
610 (or (valid-specifier-tag-p 'tty) 610 do (unless (valid-specifier-tag-p tag)
611 (define-specifier-tag 'tty (lambda (dev) (eq (device-type dev) 'tty)))) 611 (define-specifier-tag tag #'ignore)))
612 (or (valid-specifier-tag-p 'mswindows)
613 (define-specifier-tag 'mswindows (lambda (dev)
614 (eq (device-type dev) 'mswindows))))
615 (or (valid-specifier-tag-p 'gtk)
616 (define-specifier-tag 'gtk (lambda (dev) (eq (device-type dev) 'gtk))))
617 612
618 ;; Add special tag for use by initialization code. Code that 613 ;; Add special tag for use by initialization code. Code that
619 ;; sets up default specs should use this tag. Code that needs to 614 ;; sets up default specs should use this tag. Code that needs to
620 ;; override default specs (e.g. the X resource initialization 615 ;; override default specs (e.g. the X resource initialization
621 ;; code) can safely clear specs with this tag without worrying 616 ;; code) can safely clear specs with this tag without worrying
622 ;; about clobbering user settings. 617 ;; about clobbering user settings.
623 618
624 (define-specifier-tag 'default) 619 (define-specifier-tag 'default)
620
621 ;; The x-resource specifier tag is provide so the X resource initialization
622 ;; code can be overridden by custom without trouble.
623
624 (define-specifier-tag 'x-resource)
625 625
626 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 626 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
627 ;;; "Heuristic" specifier functions ;;; 627 ;;; "Heuristic" specifier functions ;;;
628 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 628 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
629 629