Prefer look ahead. Fix typo.
authorOleksandr Gavenko <gavenkoa@gmail.com>
Sat, 25 Mar 2017 11:18:21 +0300
changeset 1512 59816a0cca92
parent 1511 fc1d9169d134
child 1513 0da077ba84ab
Prefer look ahead. Fix typo.
maven.el
--- 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))