[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/vcard a85359e: Use a different fix for parsing multiple
From: |
Eric Abrahamsen |
Subject: |
[elpa] externals/vcard a85359e: Use a different fix for parsing multiple cards, bump to 0.2.1 |
Date: |
Sat, 26 Dec 2020 00:57:05 -0500 (EST) |
branch: externals/vcard
commit a85359ee8300e218e3fa6affaaaee927340e25e2
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Eric Abrahamsen <eric@ericabrahamsen.net>
Use a different fix for parsing multiple cards, bump to 0.2.1
* vcard-parse.el (vcard-parse-card): Use forward-line to explicitly
move point past the END:VCARD line.
---
vcard-parse.el | 3 ++-
vcard.el | 2 +-
2 files changed, 3 insertions(+), 2 deletions(-)
diff --git a/vcard-parse.el b/vcard-parse.el
index 4885c45..a9d9a5b 100644
--- a/vcard-parse.el
+++ b/vcard-parse.el
@@ -211,7 +211,7 @@ Returns a list of contact objects."
;; the way it's supposed to be, but we could be a little kinder
;; with a `skip-syntax-forward' check.
- (while (re-search-forward "^BEGIN:VCARD\n" (line-end-position 3) t)
+ (while (re-search-forward "^BEGIN:VCARD\n" (line-end-position 2) t)
(when (setq card (condition-case nil
;; `vcard-parse-card' moves point past the
;; card.
@@ -336,6 +336,7 @@ properties -- and returning a card/contact object."
(push (funcall prop-consumer prop value params)
card))
(forward-line)))
+ (forward-line)
(if card-consumer
(funcall card-consumer (nreverse card))
(nreverse card))))
diff --git a/vcard.el b/vcard.el
index cb37e3e..0eea42c 100644
--- a/vcard.el
+++ b/vcard.el
@@ -5,7 +5,7 @@
;; Author: Eric Abrahamsen <eric@ericabrahamsen.net>
;; Maintainer: Eric Abrahamsen <eric@ericabrahamsen.net>
-;; Version: 0.2
+;; Version: 0.2.1
;; Package-Requires: ((emacs "27.1"))
;; This program is free software; you can redistribute it and/or modify
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/vcard a85359e: Use a different fix for parsing multiple cards, bump to 0.2.1,
Eric Abrahamsen <=