diff options
author | Simon Marshall <simon@gnu.org> | 1997-04-28 11:25:26 +0000 |
---|---|---|
committer | Simon Marshall <simon@gnu.org> | 1997-04-28 11:25:26 +0000 |
commit | 016e8dedd0d85a70a42a7e06b37f688bf9bc5ced (patch) | |
tree | 5e69316826f2f82a81cdc149719c0710c95ab4ac /lisp/ps-print.el | |
parent | 78d56b4fd4cc8925e1bae1e1f4c5a6a9aa3d439f (diff) | |
download | emacs-016e8dedd0d85a70a42a7e06b37f688bf9bc5ced.tar.gz |
change all buffer-substring to buffer-substring-no-properties.
Diffstat (limited to 'lisp/ps-print.el')
-rw-r--r-- | lisp/ps-print.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/ps-print.el b/lisp/ps-print.el index 864c087086f..75c858fc5cd 100644 --- a/lisp/ps-print.el +++ b/lisp/ps-print.el @@ -2335,7 +2335,7 @@ EndDSCPage\n")) (defun ps-basic-plot-string (from to &optional bg-color) (let* ((wrappoint (ps-find-wrappoint from to ps-avg-char-width)) (to (car wrappoint)) - (string (buffer-substring from to))) + (string (buffer-substring-no-properties from to))) (ps-output-string string) (ps-output " S\n") wrappoint)) @@ -2858,7 +2858,7 @@ EndDSCPage\n")) (save-excursion (goto-char (point-min)) (if (re-search-forward "^Subject:[ \t]+\\(.*\\)$" nil t) - (buffer-substring (match-beginning 1) (match-end 1)) + (buffer-substring-no-properties (match-beginning 1) (match-end 1)) "Subject ???"))) ;; Look in an article or mail message for the From: line. Sorta-kinda @@ -2868,7 +2868,7 @@ EndDSCPage\n")) (save-excursion (goto-char (point-min)) (if (re-search-forward "^From:[ \t]+\\(.*\\)$" nil t) - (let ((fromstring (buffer-substring (match-beginning 1) (match-end 1)))) + (let ((fromstring (buffer-substring-no-properties (match-beginning 1) (match-end 1)))) (cond ;; Try first to match addresses that look like @@ -2941,7 +2941,7 @@ EndDSCPage\n")) (save-excursion (goto-char (point-min)) (if (re-search-forward "File:[ \t]+\\([^, \t\n]*\\)" nil t) - (buffer-substring (match-beginning 1) (match-end 1)) + (buffer-substring-no-properties (match-beginning 1) (match-end 1)) "File ???"))) ;; Look in an article or mail message for the Subject: line. To be @@ -2950,7 +2950,7 @@ EndDSCPage\n")) (save-excursion (goto-char (point-min)) (if (re-search-forward "Node:[ \t]+\\([^,\t\n]*\\)" nil t) - (buffer-substring (match-beginning 1) (match-end 1)) + (buffer-substring-no-properties (match-beginning 1) (match-end 1)) "Node ???"))) (defun ps-info-mode-hook () |