Mercurial > emacs
comparison lisp/ps-print.el @ 90776:dd7c098af727
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 638-652)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 202)
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-177
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Mon, 26 Feb 2007 23:03:45 +0000 |
| parents | 042bcbd6cdef 6f45466672db |
| children | 6ea6d3d1508d |
comparison
equal
deleted
inserted
replaced
| 90775:7d8921cab8aa | 90776:dd7c098af727 |
|---|---|
| 3525 #'ps-print-quote | 3525 #'ps-print-quote |
| 3526 (list | 3526 (list |
| 3527 (concat "\n;;; ps-print version " ps-print-version "\n") | 3527 (concat "\n;;; ps-print version " ps-print-version "\n") |
| 3528 ";; internal vars" | 3528 ";; internal vars" |
| 3529 (ps-comment-string "emacs-version " emacs-version) | 3529 (ps-comment-string "emacs-version " emacs-version) |
| 3530 (ps-comment-string "ps-print-emacs-type" ps-print-emacs-type) | |
| 3531 (ps-comment-string "ps-windows-system " ps-windows-system) | 3530 (ps-comment-string "ps-windows-system " ps-windows-system) |
| 3532 (ps-comment-string "ps-lp-system " ps-lp-system) | 3531 (ps-comment-string "ps-lp-system " ps-lp-system) |
| 3533 nil | 3532 nil |
| 3534 '(25 . ps-print-color-p) | 3533 '(25 . ps-print-color-p) |
| 3535 '(25 . ps-lpr-command) | 3534 '(25 . ps-lpr-command) |
| 5695 ps-default-background (ps-rgb-color | 5694 ps-default-background (ps-rgb-color |
| 5696 (cond | 5695 (cond |
| 5697 ((eq genfunc 'ps-generate-postscript) | 5696 ((eq genfunc 'ps-generate-postscript) |
| 5698 nil) | 5697 nil) |
| 5699 ((eq ps-default-bg 'frame-parameter) | 5698 ((eq ps-default-bg 'frame-parameter) |
| 5700 (ps-frame-parameter 'background-color)) | 5699 (ps-frame-parameter nil 'background-color)) |
| 5701 ((eq ps-default-bg t) | 5700 ((eq ps-default-bg t) |
| 5702 (ps-face-background-name 'default)) | 5701 (ps-face-background-name 'default)) |
| 5703 (t | 5702 (t |
| 5704 ps-default-bg)) | 5703 ps-default-bg)) |
| 5705 1.0) | 5704 1.0) |
| 5706 ps-default-foreground (ps-rgb-color | 5705 ps-default-foreground (ps-rgb-color |
| 5707 (cond | 5706 (cond |
| 5708 ((eq genfunc 'ps-generate-postscript) | 5707 ((eq genfunc 'ps-generate-postscript) |
| 5709 nil) | 5708 nil) |
| 5710 ((eq ps-default-fg 'frame-parameter) | 5709 ((eq ps-default-fg 'frame-parameter) |
| 5711 (ps-frame-parameter 'foreground-color)) | 5710 (ps-frame-parameter nil 'foreground-color)) |
| 5712 ((eq ps-default-fg t) | 5711 ((eq ps-default-fg t) |
| 5713 (ps-face-foreground-name 'default)) | 5712 (ps-face-foreground-name 'default)) |
| 5714 (t | 5713 (t |
| 5715 ps-default-fg)) | 5714 ps-default-fg)) |
| 5716 0.0) | 5715 0.0) |