branch: elpa/evil-numbers
commit aa94cd1b268ff1c33602ee27f2dd53c372d44209
Merge: 006da406d1 4308935a03
Author: Julia Path <[email protected]>
Commit: GitHub <[email protected]>
Merge pull request #11 from ideasman42/patch-1
Resolve looking-back warnings
---
evil-numbers.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/evil-numbers.el b/evil-numbers.el
index 76a52a27d3..334931ad8a 100644
--- a/evil-numbers.el
+++ b/evil-numbers.el
@@ -284,7 +284,8 @@ decimal: [0-9]+, e.g. 42 or 23"
(in "₀₁₂₃₄₅₆₇₈₉" )
(and "0" (or (and (in "bB") (*? (in "01")))
(and (in "oO") (*? (in "0-7")))
- (and (in "xX") (*? (in digit
"A-Fa-f"))))))))
+ (and (in "xX") (*? (in digit
"A-Fa-f")))))))
+ (point-at-bol))
;; search for number in rest of line
;; match 0 of specifier or digit, being in a literal and after specifier is
;; handled above
@@ -300,7 +301,7 @@ decimal: [0-9]+, e.g. 42 or 23"
(defun evil-numbers/search-and-replace (look-back skip-back search-forward inc
base)
"When looking back at LOOK-BACK skip chars SKIP-BACK backwards and replace
number incremented by INC in BASE and return non-nil."
- (when (looking-back look-back)
+ (when (looking-back look-back (point-at-bol))
(skip-chars-backward skip-back)
(search-forward-regexp search-forward)
(replace-match (evil-numbers/format (+ inc (string-to-number (match-string
1) base))
