equal
deleted
inserted
replaced
32 (save-excursion |
32 (save-excursion |
33 (goto-char point) |
33 (goto-char point) |
34 (unless (eq (char-after) ?<) |
34 (unless (eq (char-after) ?<) |
35 (search-backward "<")) |
35 (search-backward "<")) |
36 (setq point (point)) |
36 (setq point (point)) |
37 (setq fs-o (re-search-forward "<\\(?:plugin\\|dependency\\)>" nil t)) |
37 (when (re-search-forward "<\\(?:plugin\\|dependency\\)>" nil t) |
38 (when fs-o |
38 (setq fs-o (re-search-backward "<") nil t)) |
39 (setq fs-o (- fs-o 12))) |
|
40 (goto-char point) |
39 (goto-char point) |
41 (setq bs-o (re-search-backward "<\\(?:plugin\\|dependency\\)>" nil t)) |
40 (setq bs-o (re-search-backward "<\\(?:plugin\\|dependency\\)>" nil t)) |
42 (goto-char point) |
41 (goto-char point) |
43 (setq fs-c (re-search-forward "</\\(?:plugin\\|dependency\\)>" nil t)) |
42 (setq fs-c (re-search-forward "</\\(?:plugin\\|dependency\\)>" nil t)) |
44 (goto-char point) |
43 (goto-char point) |
45 (setq bs-c (re-search-backward "</\\(?:plugin\\|dependency\\)>" nil t)) |
44 (when (re-search-backward "</\\(?:plugin\\|dependency\\)>" nil t) |
46 (when bs-c |
45 (setq bs-c (re-search-backward ">" nil t))) |
47 (setq bs-c (+ bs-c 13))) |
|
48 (cond |
46 (cond |
49 ((and fs-o (= fs-o point) fs-c) |
47 ((and fs-o (= fs-o point) fs-c) |
50 (maven.parse-pom-dependency-in-region fs-o fs-c)) |
48 (maven.parse-pom-dependency-in-region fs-o fs-c)) |
51 ((and bs-o (<= bs-o point) fs-c (<= point fs-c)) |
49 ((and bs-o (<= bs-o point) fs-c (<= point fs-c)) |
52 (maven.parse-pom-dependency-in-region bs-o fs-c)) |
50 (maven.parse-pom-dependency-in-region bs-o fs-c)) |