Mercurial > emacs
comparison lisp/ps-print.el @ 38815:7ef80e3474d9
Change error function arguments to follow Emacs
message convention. Doc fix.
(ps-print-version): New version number (6.5.4).
(coding-system-for-write): Change declaration position to avoid
XEmacs compilation gripes.
(coding-system-for-read, buffer-file-coding-system): Declarations
to avoid XEmacs compilation gripes.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Wed, 15 Aug 2001 08:05:21 +0000 |
| parents | d91aa21f1e78 |
| children | 5bd3a872b655 |
comparison
equal
deleted
inserted
replaced
| 38814:d4d24695f9e2 | 38815:7ef80e3474d9 |
|---|---|
| 8 ;; Vinicius Jose Latorre <vinicius@cpqd.com.br> | 8 ;; Vinicius Jose Latorre <vinicius@cpqd.com.br> |
| 9 ;; Kenichi Handa <handa@etl.go.jp> (multi-byte characters) | 9 ;; Kenichi Handa <handa@etl.go.jp> (multi-byte characters) |
| 10 ;; Maintainer: Kenichi Handa <handa@etl.go.jp> (multi-byte characters) | 10 ;; Maintainer: Kenichi Handa <handa@etl.go.jp> (multi-byte characters) |
| 11 ;; Vinicius Jose Latorre <vinicius@cpqd.com.br> | 11 ;; Vinicius Jose Latorre <vinicius@cpqd.com.br> |
| 12 ;; Keywords: wp, print, PostScript | 12 ;; Keywords: wp, print, PostScript |
| 13 ;; Time-stamp: <2001/06/19 11:01:09 vinicius> | 13 ;; Time-stamp: <2001/08/07 13:22:04 vinicius> |
| 14 ;; Version: 6.5.3 | 14 ;; Version: 6.5.4 |
| 15 ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/ | 15 ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/ |
| 16 | 16 |
| 17 (defconst ps-print-version "6.5.3" | 17 (defconst ps-print-version "6.5.4" |
| 18 "ps-print.el, v 6.5.3 <2001/06/19 vinicius> | 18 "ps-print.el, v 6.5.4 <2001/08/07 vinicius> |
| 19 | 19 |
| 20 Vinicius's last change version -- this file may have been edited as part of | 20 Vinicius's last change version -- this file may have been edited as part of |
| 21 Emacs without changes to the version number. When reporting bugs, please also | 21 Emacs without changes to the version number. When reporting bugs, please also |
| 22 report the version of Emacs, if any, that ps-print was distributed with. | 22 report the version of Emacs, if any, that ps-print was distributed with. |
| 23 | 23 |
| 3585 (ps-x-color-name color) | 3585 (ps-x-color-name color) |
| 3586 color)) | 3586 color)) |
| 3587 | 3587 |
| 3588 (cond ((eq ps-print-emacs-type 'emacs) ; emacs | 3588 (cond ((eq ps-print-emacs-type 'emacs) ; emacs |
| 3589 | 3589 |
| 3590 ;; to avoid XEmacs compilation gripes | |
| 3591 (defvar coding-system-for-write nil) | |
| 3592 | |
| 3593 (defun ps-color-values (x-color) | 3590 (defun ps-color-values (x-color) |
| 3594 (cond | 3591 (cond |
| 3595 ((fboundp 'color-values) | 3592 ((fboundp 'color-values) |
| 3596 (ps-e-color-values x-color)) | 3593 (ps-e-color-values x-color)) |
| 3597 ((fboundp 'x-color-values) | 3594 ((fboundp 'x-color-values) |
| 3611 (memq face ps-italic-faces))) | 3608 (memq face ps-italic-faces))) |
| 3612 ) | 3609 ) |
| 3613 ; xemacs | 3610 ; xemacs |
| 3614 ; lucid | 3611 ; lucid |
| 3615 (t ; epoch | 3612 (t ; epoch |
| 3613 | |
| 3614 ;; to avoid XEmacs compilation gripes | |
| 3615 (defvar coding-system-for-write nil) | |
| 3616 (defvar coding-system-for-read nil) | |
| 3617 (defvar buffer-file-coding-system nil) | |
| 3616 | 3618 |
| 3617 (and (fboundp 'find-coding-system) | 3619 (and (fboundp 'find-coding-system) |
| 3618 (or (ps-x-find-coding-system 'raw-text-unix) | 3620 (or (ps-x-find-coding-system 'raw-text-unix) |
| 3619 (ps-x-copy-coding-system 'no-conversion-unix 'raw-text-unix))) | 3621 (ps-x-copy-coding-system 'no-conversion-unix 'raw-text-unix))) |
| 3620 | 3622 |