mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-16 17:19:41 +00:00
Code Issues Releases Activity

(mail-fetch-field): Use skip-chars-backward

Browse Source 
to back over whitespace; don't back up past opoint.
This commit is contained in:
Richard M. Stallman 1996-04-11 17:34:28 +00:00
parent 4a0f786c49
commit fb83f5506c
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/mail/mail-utils.el
View File

@ -183,8 +183,7 @@ If third arg ALL is non-nil, concatenate all such fields with commas between."
(looking-at "[ \t]")))
;; Back up over newline, then trailing spaces or tabs
(forward-char -1)
(while (member (preceding-char) '(? ?\t))
(forward-char -1))
(skip-chars-backward " \t" opoint)
(setq value (concat value
(if (string= value "") "" ", ")
(buffer-substring-no-properties
@ -198,8 +197,7 @@ If third arg ALL is non-nil, concatenate all such fields with commas between."
(looking-at "[ \t]")))
;; Back up over newline, then trailing spaces or tabs
(forward-char -1)
(while (member (preceding-char) '(? ?\t))
(forward-char -1))
(skip-chars-backward " \t" opoint)
(buffer-substring-no-properties opoint (point)))))))))
;; Parse a list of tokens separated by commas.