mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1996-02-28 18:51:36 +00:00
parent 5b681bb566
commit 278e0a7357
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ps-print.el
View File

@ -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