emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/evil 6fa371222f: Refactor substitution empty last line han


From: ELPA Syncer
Subject: [nongnu] elpa/evil 6fa371222f: Refactor substitution empty last line handling
Date: Wed, 20 Apr 2022 04:58:40 -0400 (EDT)

branch: elpa/evil
commit 6fa371222f5d56cf96103aa301da8bcbf6c15cc2
Author: Tom Dalziel <tom_dl@hotmail.com>
Commit: Tom Dalziel <tom_dl@hotmail.com>

    Refactor substitution empty last line handling
---
 evil-commands.el | 15 +++++----------
 1 file changed, 5 insertions(+), 10 deletions(-)

diff --git a/evil-commands.el b/evil-commands.el
index 3344c42322..545de06272 100644
--- a/evil-commands.el
+++ b/evil-commands.el
@@ -3826,17 +3826,12 @@ reveal.el. OPEN-SPOTS is a local version of 
`reveal-open-spots'."
                         (string-match-p "\n" (buffer-substring-no-properties
                                               match-beg match-end)))
                   (setq zero-length-match (= match-beg match-end))
-                  (when (= match-end end-marker)
+                  (when (and (= match-end end-marker) (not 
match-contains-newline) (bolp))
                     ;; The range (beg end) includes the final newline which 
means
-                    ;; end-marker is on one line down, causing some issues...
-                    (when (and (not match-contains-newline) (bolp))
-                      ;; With the exception of explicitly substituting 
newlines,
-                      ;; we abort when the match ends here and it's an empty 
line
-                      (throw 'exit-search t))
-                    (when (string= "^" evil-ex-substitute-regex)
-                      ;; With the regex "^" the beginning of this last line
-                      ;; will be matched which we don't want, so we abort here
-                      (throw 'exit-search t)))
+                    ;; end-marker is on one line down.
+                    ;; With the exception of explicitly substituting newlines,
+                    ;; we abort when the match ends here and it's an empty line
+                    (throw 'exit-search t))
                   (setq evil-ex-substitute-last-point match-beg)
                   (if confirm
                       (let ((prompt



reply via email to

[Prev in Thread] Current Thread [Next in Thread]