Mercurial > emacs

changeset 14989:7bba84af4b94

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mail-fetch-field): Use skip-chars-backward to back over whitespace; don't back up past opoint.
author Richard M. Stallman <rms@gnu.org>
date Thu, 11 Apr 1996 17:34:28 +0000
parents c833cd83414c
children cee88fc1cecd
files lisp/mail/mail-utils.el
diffstat 1 files changed, 2 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/mail-utils.el	Thu Apr 11 15:26:55 1996 +0000
+++ b/lisp/mail/mail-utils.el	Thu Apr 11 17:34:28 1996 +0000
@@ -183,8 +183,7 @@
 			      (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 @@
 			      (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.