From 278e0a73579b69972ed97e36ed5a456c961bc93a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 28 Feb 1996 18:51:36 +0000 Subject: [PATCH] (ps-generate): Bind inhibit-read-only. --- lisp/ps-print.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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 -- 2.39.5