# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 825533496 0
# Node ID 974766c7bddc7b96948ba6e3c0cde84fdf60307c
# Parent  65d08233b9f785682b9b5670ab7fc8e0303e8953
(ps-generate): Bind inhibit-read-only.

diff -r 65d08233b9f7 -r 974766c7bddc lisp/ps-print.el
--- a/lisp/ps-print.el	Wed Feb 28 18:07:46 1996 +0000
+++ b/lisp/ps-print.el	Wed Feb 28 18:51:36 1996 +0000
@@ -1805,7 +1805,10 @@
 
 (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