From c82b4a75210db3affae03f2382a349863abd5bf4 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 23 Sep 1998 22:11:56 +0000 Subject: [PATCH] Skip invisible overlay. (ps-print-version): New version number (4.1) and doc fix. (ps-generate-postscript-with-faces): Skip invisible overlay. --- lisp/ps-print.el | 45 +++++++++++++++++---------------------------- 1 file changed, 17 insertions(+), 28 deletions(-) diff --git a/lisp/ps-print.el b/lisp/ps-print.el index 78f33149494..8b62a7b2e35 100644 --- a/lisp/ps-print.el +++ b/lisp/ps-print.el @@ -9,11 +9,11 @@ ;; Maintainer: Kenichi Handa (multibyte characters) ;; Maintainer: Vinicius Jose Latorre ;; Keywords: print, PostScript -;; Time-stamp: <98/08/19 11:10:03 vinicius> -;; Version: 4.0 +;; Time-stamp: <98/09/18 9:51:23 vinicius> +;; Version: 4.1 -(defconst ps-print-version "4.0" - "ps-print.el, v 4.0 <98/08/19 vinicius> +(defconst ps-print-version "4.1" + "ps-print.el, v 4.1 <98/09/18 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, @@ -377,21 +377,21 @@ Please send all bug fixes and enhancements to ;; ;; Valid values for `ps-print-control-characters' are: ;; -;; 8-bit This is the value to use when you want an ascii encoding of -;; any control or non-ascii character. Control characters are -;; encoded as "^D", and non-ascii characters have an +;; 8-bit This is the value to use when you want an ASCII encoding of +;; any control or non-ASCII character. Control characters are +;; encoded as "^D", and non-ASCII characters have an ;; octal encoding. ;; -;; control-8-bit This is the value to use when you want an ascii encoding of +;; control-8-bit This is the value to use when you want an ASCII encoding of ;; any control character, whether it is 7 or 8-bit. ;; European 8-bits accented characters are printed according ;; the current font. ;; -;; control Only ascii control characters have an ascii encoding. +;; control Only ASCII control characters have an ASCII encoding. ;; European 8-bits accented characters are printed according ;; the current font. ;; -;; nil No ascii encoding. Any character is printed according the +;; nil No ASCII encoding. Any character is printed according the ;; current font. ;; ;; Any other value is treated as nil. @@ -1065,7 +1065,7 @@ Valid values are: `8-bit' This is the value to use when you want an ASCII encoding of any control or non-ASCII character. Control characters are - encoded as \"^D\", and non-ascii characters have an + encoded as \"^D\", and non-ASCII characters have an octal encoding. `control-8-bit' This is the value to use when you want an ASCII encoding of @@ -1073,7 +1073,7 @@ Valid values are: European 8-bits accented characters are printed according the current font. - `control' Only ascii control characters have an ASCII encoding. + `control' Only ASCII control characters have an ASCII encoding. European 8-bits accented characters are printed according the current font. @@ -2897,8 +2897,6 @@ Currently, data for Japanese and Korean PostScript printers are listed.") (bold bdf "etl16b-latin1.bdf" iso-latin-1 1) (italic bdf "etl16i-latin1.bdf" iso-latin-1 1) (bold-italic bdf "etl16bi-latin1.bdf" iso-latin-1 1)) - (latin-iso8859-1 - (normal nil nil iso-latin-1)) (latin-iso8859-2 (normal bdf "etl24-latin2.bdf" iso-latin-2 1)) (latin-iso8859-3 @@ -4040,7 +4038,7 @@ page-height == bm + print-height + tm - ho - hh (save-excursion ;insert string (insert (string-as-unibyte string))) ;; Find and quote special characters as necessary for PS - ;; This skips everything except control chars, nonascii chars, (, ) and \. + ;; This skips everything except control chars, non-ASCII chars, (, ) and \. (while (progn (skip-chars-forward " -'*-[]-~") (not (eobp))) (let ((special (following-char))) (delete-char 1) @@ -4276,6 +4274,7 @@ page-height == bm + print-height + tm - ho - hh (setq tail (cdr tail))) (nreverse new))) + ;; Find the first occurrence of ITEM in LIST. ;; Return the index of the matching item, or nil if not found. ;; Elements are compared with `eq'. @@ -4976,17 +4975,7 @@ If FACE is not a valid face name, it is used default face." (let ((property-change from) (overlay-change from) (save-buffer-invisibility-spec buffer-invisibility-spec) - (buffer-invisibility-spec - (and (listp buffer-invisibility-spec) - (let ((seq buffer-invisibility-spec) - elt res) - (while seq - (setq elt (car seq) - seq (cdr seq)) - (or (eq elt 'invisible) - (and (listp elt) (eq (car elt) 'invisible)) - (setq res (cons elt res)))) - (nreverse seq))))) + (buffer-invisibility-spec nil)) (while (< from to) (if (< property-change to) ; Don't search for property change ; unless previous search succeeded. @@ -5032,8 +5021,8 @@ If FACE is not a valid face name, it is used default face." save-buffer-invisibility-spec) (assq overlay-invisible save-buffer-invisibility-spec))) - nil) - ((and face overlay-face))) + 'emacs--invisible--face) + (face overlay-face)) face-priority overlay-priority))) (setq overlays (cdr overlays)))) ;; Plot up to this record.