mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(ps-output-string-prim): Use skip-chars-forward.

Browse source
This commit is contained in:
Richard M. Stallman 1998-04-18 02:01:12 +00:00
parent b37daea4a7
commit b61e2c11a2
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/ps-print.el
View file

@ -2927,9 +2927,11 @@ page-height == bm + print-height + tm - ho - hh
(save-excursion ;insert string
(insert string))
;; Find and quote special characters as necessary for PS
(while (re-search-forward "[\000-\037\177-\377()\\]" nil t)
(let ((special (preceding-char)))
(delete-char -1)
;; This skips everything except control chars, nonascii chars,
;; (, ) and \.
(while (progn (skip-chars-forward " -'*-[]-~") (not (eobp)))
(let ((special (following-char)))
(delete-char 1)
(insert (aref ps-string-escape-codes special))))
(goto-char (point-max))
(insert ")")) ;insert end-string delimiter