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

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

[elpa] externals/objed 6092485 173/216: Ignore cases where object could


From: Stefan Monnier
Subject: [elpa] externals/objed 6092485 173/216: Ignore cases where object could not be found (range = nil)
Date: Tue, 8 Jan 2019 12:29:34 -0500 (EST)

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

    Ignore cases where object could not be found (range = nil)
---
 objed.el | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/objed.el b/objed.el
index acd0cd0..6629f66 100644
--- a/objed.el
+++ b/objed.el
@@ -2866,11 +2866,12 @@ positions of the text object range.
 
 RANGE is a list of the beginning and and position of
 the text object to act on."
-  (let ((text (apply #'buffer-substring range))
-        (range (list (set-marker (make-marker) (car range))
-                     (set-marker (make-marker) (cadr range)))))
-    (apply action range)
-    (objed-exit-op name text range)))
+  (when range
+    (let ((text (apply #'buffer-substring range))
+          (range (list (set-marker (make-marker) (car range))
+                       (set-marker (make-marker) (cadr range)))))
+      (apply action range)
+      (objed-exit-op name text range))))
 
 (defun objed--ov-apply (name action ovs)
   "Apply and operation to marked objects.



reply via email to

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