procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Simon Marshall 1997-04-28 11:25:26 +00:00
parent 54d893e33b
commit 055e7bf2d2
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/ps-print.el
View file

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