[elpa] externals/vcard 4bf38d79fc 05/13: (vcard-parse-string): Handle "key:field" type entries, i.e. no whitespace

[Stefan Monnier]

branch: externals/vcard
commit 4bf38d79fc833ca951dc9042e2f3b7d105f060c9
Author: Noah Friedman <friedman@splode.com>
Commit: Noah Friedman <friedman@splode.com>

    (vcard-parse-string): Handle "key:field" type entries, i.e. no whitespace
    between key and field.  Communicator 4.1 seems to generate these.
---
 vcard.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/vcard.el b/vcard.el
index 0d13bb4f4a..ad24f7e0ec 100644
--- a/vcard.el
+++ b/vcard.el
@@ -7,7 +7,7 @@
 ;; Keywords: extensions
 ;; Created: 1997-09-27
 
-;; $Id: vcard.el,v 1.4 1998/02/10 11:02:00 friedman Exp $
+;; $Id: vcard.el,v 1.5 1998/06/05 19:56:06 friedman Exp $
 
 ;; This program is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -53,6 +53,7 @@ Vcard data is normally in the form
     key2;subkey2: field1;field2;field3
     end:          vcard
 
+\(Whitespace after the colon separating the key and field is optional.\)
 If supplied to this function an alist of the form
 
     ((\"key1\" \"field\")
@@ -69,7 +70,7 @@ would be returned."
       (setq raw-pos (match-end 0))
       (while (and (< raw-pos (length raw))
                   (string-match
-                   "^[ \t]*\\([^:]+\\):[ \t]+\\(.*\\)[ \t]*[\n\r]+"
+                   "^[ \t]*\\([^:]+\\):[ \t]*\\(.*\\)[ \t]*[\n\r]+"
                    raw raw-pos))
         (setq key (vcard-matching-substring 1 raw))
         (setq data (vcard-matching-substring 2 raw))