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) |