Mercurial > hg > xemacs-beta
comparison lisp/specifier.el @ 211:78478c60bfcd r20-4b4
Import from CVS: tag r20-4b4
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 10:05:51 +0200 |
| parents | 41ff10fd062f |
| children | 727739f917cb |
comparison
equal
deleted
inserted
replaced
| 210:49f55ca3ba57 | 211:78478c60bfcd |
|---|---|
| 403 how-to-add)))) | 403 how-to-add)))) |
| 404 value) | 404 value) |
| 405 | 405 |
| 406 (define-specifier-tag 'win 'device-on-window-system-p) | 406 (define-specifier-tag 'win 'device-on-window-system-p) |
| 407 | 407 |
| 408 ;; Add tags for device types that don't have support compiled | |
| 409 ;; into the binary that we're about to dump. This will prevent | |
| 410 ;; code like | |
| 411 ;; | |
| 412 ;; (set-face-foreground 'default "black" nil '(x color)) | |
| 413 ;; | |
| 414 ;; from producing an error if no X support was compiled in. | |
| 415 | |
| 416 (or (valid-specifier-tag-p 'x) | |
| 417 (define-specifier-tag 'x (lambda (dev) (eq (device-type dev) 'x)))) | |
| 418 (or (valid-specifier-tag-p 'tty) | |
| 419 (define-specifier-tag 'tty (lambda (dev) (eq (device-type dev) 'tty)))) | |
| 420 (or (valid-specifier-tag-p 'mswindows) | |
| 421 (define-specifier-tag 'mswindows (lambda (dev) | |
| 422 (eq (device-type dev) 'mswindows)))) | |
| 423 | |
| 408 ;;; specifier.el ends here | 424 ;;; specifier.el ends here |