From b61e2c11a2dc5dedfb20982a64eb82d3ebf2e98f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 18 Apr 1998 02:01:12 +0000 Subject: [PATCH] (ps-output-string-prim): Use skip-chars-forward. --- lisp/ps-print.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/ps-print.el b/lisp/ps-print.el index 576746ce085..e0f292cd06c 100644 --- a/lisp/ps-print.el +++ b/lisp/ps-print.el @@ -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 -- 2.39.2