diff options
| author | Richard M. Stallman | 1998-04-18 02:01:12 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-04-18 02:01:12 +0000 |
| commit | b61e2c11a2dc5dedfb20982a64eb82d3ebf2e98f (patch) | |
| tree | 38815ed617d9e0ceb3a8765740e86a12420e7fd2 | |
| parent | b37daea4a76b20cdda3ebb49f141fb58ac48e480 (diff) | |
| download | emacs-b61e2c11a2dc5dedfb20982a64eb82d3ebf2e98f.tar.gz emacs-b61e2c11a2dc5dedfb20982a64eb82d3ebf2e98f.zip | |
(ps-output-string-prim): Use skip-chars-forward.
| -rw-r--r-- | lisp/ps-print.el | 8 |
1 files 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 | |||
| 2927 | (save-excursion ;insert string | 2927 | (save-excursion ;insert string |
| 2928 | (insert string)) | 2928 | (insert string)) |
| 2929 | ;; Find and quote special characters as necessary for PS | 2929 | ;; Find and quote special characters as necessary for PS |
| 2930 | (while (re-search-forward "[\000-\037\177-\377()\\]" nil t) | 2930 | ;; This skips everything except control chars, nonascii chars, |
| 2931 | (let ((special (preceding-char))) | 2931 | ;; (, ) and \. |
| 2932 | (delete-char -1) | 2932 | (while (progn (skip-chars-forward " -'*-[]-~") (not (eobp))) |
| 2933 | (let ((special (following-char))) | ||
| 2934 | (delete-char 1) | ||
| 2933 | (insert (aref ps-string-escape-codes special)))) | 2935 | (insert (aref ps-string-escape-codes special)))) |
| 2934 | (goto-char (point-max)) | 2936 | (goto-char (point-max)) |
| 2935 | (insert ")")) ;insert end-string delimiter | 2937 | (insert ")")) ;insert end-string delimiter |