aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/ps-print.el
diff options
context:
space:
mode:
authorRichard M. Stallman <[email protected]>1996-02-28 18:51:36 +0000
committerRichard M. Stallman <[email protected]>1996-02-28 18:51:36 +0000
commit278e0a73579b69972ed97e36ed5a456c961bc93a (patch)
tree02785b08957a6143d9456c5c0471efb47b8fb7c1 /lisp/ps-print.el
parent5b681bb56645917bd08610bc80cce65a3ea40628 (diff)
(ps-generate): Bind inhibit-read-only.
Diffstat (limited to 'lisp/ps-print.el')
-rw-r--r--lisp/ps-print.el5
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 1f64b51c97..8dc5605e7f 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