From 055e7bf2d2915b8c2d74c07e5f8cbdef15b3a600 Mon Sep 17 00:00:00 2001 From: Simon Marshall Date: Mon, 28 Apr 1997 11:25:26 +0000 Subject: [PATCH] change all buffer-substring to buffer-substring-no-properties. --- lisp/ps-print.el | 10 +++++----- 1 file 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 () -- 2.39.2