From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 28 Feb 1996 18:51:36 +0000 (+0000)
Subject: (ps-generate): Bind inhibit-read-only.
X-Git-Tag: emacs-19.34~1148
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=278e0a73579b69972ed97e36ed5a456c961bc93a;p=emacs.git

(ps-generate): Bind inhibit-read-only.
---

diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 1f64b51c974..8dc5605e7f4 100644
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -1805,7 +1805,10 @@ EndDSCPage\n"))
 
 (defun ps-generate (buffer from to genfunc)
   (let ((from (min to from))
-	(to (max to from)))
+	(to (max to from))
+	;; This avoids trouble if chars with read-only properties
+	;; are copied into ps-spool-buffer.
+	(inhibit-read-only t))
     (save-restriction
       (narrow-to-region from to)
       (if ps-razzle-dazzle