Prefer look ahead. Fix typo.
--- a/maven.el Sat Mar 25 11:09:24 2017 +0300
+++ b/maven.el Sat Mar 25 11:18:21 2017 +0300
@@ -28,19 +28,19 @@
(defun maven.parse-pom-dependency (&optional point)
(let (start end pos groupId artifactId version fs-o bs-o fs-c bs-c)
(save-excursion
- (goto-char point)
- (unless (eq (char-after) ?<)
+ (if (looking-at "[^>]*<[^!]")
+ (progn (search-forward "<") (backward-char))
(search-backward "<"))
(setq point (point))
(when (re-search-forward "<\\(?:plugin\\|dependency\\)>" nil t)
- (setq fs-o (re-search-backward "<") nil t))
+ (setq fs-o (re-search-backward "<" nil t)))
(goto-char point)
(setq bs-o (re-search-backward "<\\(?:plugin\\|dependency\\)>" nil t))
(goto-char point)
(setq fs-c (re-search-forward "</\\(?:plugin\\|dependency\\)>" nil t))
(goto-char point)
(when (re-search-backward "</\\(?:plugin\\|dependency\\)>" nil t)
- (setq bs-c (re-search-backward ">" nil t)))
+ (setq bs-c (re-search-forward ">" nil t)))
(cond
((and fs-o (= fs-o point) fs-c)
(maven.parse-pom-dependency-in-region fs-o fs-c))