Mercurial > emacs
comparison lisp/ps-print.el @ 38436:b174db545cfd
Some fixes to follow coding conventions.
| author | Pavel Janík <Pavel@Janik.cz> |
|---|---|
| date | Mon, 16 Jul 2001 12:23:00 +0000 |
| parents | baa7f44697de |
| children | d91aa21f1e78 |
comparison
equal
deleted
inserted
replaced
| 38435:a9102b5472f0 | 38436:b174db545cfd |
|---|---|
| 3595 ((fboundp 'color-values) | 3595 ((fboundp 'color-values) |
| 3596 (ps-e-color-values x-color)) | 3596 (ps-e-color-values x-color)) |
| 3597 ((fboundp 'x-color-values) | 3597 ((fboundp 'x-color-values) |
| 3598 (ps-e-x-color-values x-color)) | 3598 (ps-e-x-color-values x-color)) |
| 3599 (t | 3599 (t |
| 3600 (error "No available function to determine X color values.")))) | 3600 (error "No available function to determine X color values")))) |
| 3601 | 3601 |
| 3602 (defalias 'ps-face-foreground-name 'face-foreground) | 3602 (defalias 'ps-face-foreground-name 'face-foreground) |
| 3603 (defalias 'ps-face-background-name 'face-background) | 3603 (defalias 'ps-face-background-name 'face-background) |
| 3604 | 3604 |
| 3605 (defun ps-face-bold-p (face) | 3605 (defun ps-face-bold-p (face) |
| 3628 (ps-x-color-instance-rgb-components | 3628 (ps-x-color-instance-rgb-components |
| 3629 (if (ps-x-color-instance-p x-color) | 3629 (if (ps-x-color-instance-p x-color) |
| 3630 x-color | 3630 x-color |
| 3631 (ps-x-make-color-instance color)))) | 3631 (ps-x-make-color-instance color)))) |
| 3632 (t | 3632 (t |
| 3633 (error "No available function to determine X color values."))))) | 3633 (error "No available function to determine X color values"))))) |
| 3634 | 3634 |
| 3635 (defun ps-face-foreground-name (face) | 3635 (defun ps-face-foreground-name (face) |
| 3636 (ps-xemacs-color-name (face-foreground face))) | 3636 (ps-xemacs-color-name (face-foreground face))) |
| 3637 | 3637 |
| 3638 (defun ps-face-background-name (face) | 3638 (defun ps-face-background-name (face) |
| 3674 (if (and (file-exists-p filename) | 3674 (if (and (file-exists-p filename) |
| 3675 (file-readable-p filename)) | 3675 (file-readable-p filename)) |
| 3676 (with-temp-buffer | 3676 (with-temp-buffer |
| 3677 (insert-file-contents filename) | 3677 (insert-file-contents filename) |
| 3678 (buffer-string)) | 3678 (buffer-string)) |
| 3679 (error "ps-print PostScript prologue `%s' file was not found." | 3679 (error "ps-print PostScript prologue `%s' file was not found" |
| 3680 filename)))) | 3680 filename)))) |
| 3681 | 3681 |
| 3682 | 3682 |
| 3683 (defvar ps-mark-code-directory nil) | 3683 (defvar ps-mark-code-directory nil) |
| 3684 | 3684 |