From: Simon Marshall <simon@gnu.org>
Date: Mon, 28 Apr 1997 11:25:26 +0000 (+0000)
Subject: change all buffer-substring to buffer-substring-no-properties.
X-Git-Tag: emacs-20.1~2357
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=055e7bf2d2915b8c2d74c07e5f8cbdef15b3a600;p=emacs.git

change all buffer-substring to buffer-substring-no-properties.
---

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 ()