mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-15 04:11:53 -08:00
Code Issues Projects Releases Wiki Activity

Minor fixes from author.

Browse source
This commit is contained in:
Gerd Moellmann 2000-11-17 22:50:15 +00:00
parent c9a6f68fec
commit 08ea6f1714
2 changed files with 10 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2000-11-17 Gerd Moellmann <gerd@gnu.org>
* ps-print.el: Minor fixes from author.
2000-11-16 Stefan Monnier <monnier@cs.yale.edu>
* vc.el (vc-version-diff): Bind inhibit-read-only when inserting text.

10
lisp/ps-print.el
View file

@ -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 <thompson@wg2.waii.com>)
;; Author: Jacques Duthen (was <duthen@cegelec-red.fr>)
@ -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)))