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

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

[elpa] externals/objed d50117d 114/216: Fix kill-op error


From: Stefan Monnier
Subject: [elpa] externals/objed d50117d 114/216: Fix kill-op error
Date: Tue, 8 Jan 2019 12:29:22 -0500 (EST)

branch: externals/objed
commit d50117d330a1c621050cb84e0d70ee110b443bfe
Author: Clemera <address@hidden>
Commit: Clemera <address@hidden>

    Fix kill-op error
---
 objed-objects.el | 4 ++--
 objed.el         | 4 +++-
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/objed-objects.el b/objed-objects.el
index 1fc0468..9a82ebd 100644
--- a/objed-objects.el
+++ b/objed-objects.el
@@ -586,8 +586,8 @@ to search backwards.
 
 POS defaults to point. When no object is found at current
 position returns the next accessible one in DIR. Object position
-order depends on `objed--obj-state'. To exit early from search objects
-can throw an error."
+order depends on `objed--obj-state'. To exit early from search
+objects can throw an error."
   (save-excursion
     (let ((darg (if dir :try-prev :try-next))
           (max (if dir nil (objed--object :max-search-forward)))
diff --git a/objed.el b/objed.el
index b7f762e..fe4f182 100644
--- a/objed.el
+++ b/objed.el
@@ -2642,7 +2642,9 @@ Marked object sequences are merged to built a single text 
object."
          ;; no marked objects
          (objed--ob-apply op cmd (objed--current))
          ;; for possible repeats like default conf. (kill line...)
-         (unless (eq op 'ignore)
+         (unless (or (eq op 'ignore)
+                     ;; object gone
+                     (not objed--current-obj))
            (objed--change-to :beg (point)
                              :ibeg (point))))))
 



reply via email to

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