diff options
| author | Gerd Moellmann <[email protected]> | 2000-11-17 22:50:15 +0000 |
|---|---|---|
| committer | Gerd Moellmann <[email protected]> | 2000-11-17 22:50:15 +0000 |
| commit | 08ea6f1714f0fff2abd1db1889ef8b5ea95bc671 (patch) | |
| tree | a6916626122d35fe856aa235f863fb03367243c0 /lisp | |
| parent | c9a6f68fec73f72f84307634f576e42137d8c0e9 (diff) | |
Minor fixes from author.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/ps-print.el | 10 |
2 files changed, 10 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d33385e89d..9a5995880b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2000-11-17 Gerd Moellmann <[email protected]> + + * ps-print.el: Minor fixes from author. + 2000-11-16 Stefan Monnier <[email protected]> * vc.el (vc-version-diff): Bind inhibit-read-only when inserting text. diff --git a/lisp/ps-print.el b/lisp/ps-print.el index fc27c966ea..75fa9aa8ea 100644 --- a/lisp/ps-print.el +++ b/lisp/ps-print.el @@ -1,6 +1,6 @@ ;;; ps-print.el --- Print text from the buffer as PostScript -;; Copyright (C) 1993, 2000 Free Software Foundation, Inc. +;; Copyright (C) 1993-2000 Free Software Foundation, Inc. ;; Author: Jim Thompson (was <[email protected]>) ;; Author: Jacques Duthen (was <[email protected]>) @@ -14,7 +14,7 @@ ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/ (defconst ps-print-version "6.3.1" - "ps-print.el, v 6.3.1 <2000/10/30 vinicius> + "ps-print.el, v 6.3.1 <2000/11/01 vinicius> Vinicius's last change version -- this file may have been edited as part of Emacs without changes to the version number. When reporting bugs, please also @@ -2962,6 +2962,7 @@ The table depends on the current ps-print setup." (require 'faces)) ; face-font, face-underline-p, ; x-font-regexp + ;; Return t if the device (which can be changed during an emacs session) ;; can handle colors. ;; This function is not yet implemented for GNU emacs. @@ -3028,8 +3029,9 @@ The table depends on the current ps-print setup." ; lucid (t ; epoch - (or (ps-x-find-coding-system 'raw-text-unix) - (ps-x-copy-coding-system 'no-conversion-unix 'raw-text-unix)) + (and (fboundp 'find-coding-system) + (or (ps-x-find-coding-system 'raw-text-unix) + (ps-x-copy-coding-system 'no-conversion-unix 'raw-text-unix))) (defun ps-color-values (x-color) (let ((color (ps-xemacs-color-name x-color))) |