[elpa] externals/objed 8d3399a 132/216: Adjust mark bindings

[Stefan Monnier]

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

    Adjust mark bindings
---
 objed-objects.el | 3 ++-
 objed.el         | 7 ++++---
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/objed-objects.el b/objed-objects.el
index 87f7c90..bf832ff 100644
--- a/objed-objects.el
+++ b/objed-objects.el
@@ -1052,8 +1052,9 @@ non-nil append to the list of marked objects."
       (push (objed--make-object-overlay obj)
             objed--marked-ovs))))
 
-(defun objed--unmark-all ()
+(defun objed-unmark-all ()
   "Remove all marked objects."
+  (interactive)
   (while objed--marked-ovs
     (delete-overlay (pop objed--marked-ovs))))
 
diff --git a/objed.el b/objed.el
index eb7bb2e..3cd5f56 100644
--- a/objed.el
+++ b/objed.el
@@ -732,8 +732,9 @@ cons of guessed object and its state."
 
     ;; marking/unmarking
     (define-key map "m" 'objed-mark)
-    ;; jump back and  mark, unmark if necessary
+    ;; mark upwards
     (define-key map "M" 'objed-toggle-mark-backward)
+    (define-key map "U" 'objed-unmark-all)
 
 
     ;; basic edit ops
@@ -976,7 +977,7 @@ Use `objed-define-dispatch' to define a dispatch command.")
 
 (defun objed--mark-all-inside (name)
   "Mark all objects of current type inside object NAME."
-  (objed--unmark-all)
+  (objed-unmark-all)
   (save-excursion
     (save-restriction
       ;; narrow to object we search for objects in
@@ -2060,7 +2061,7 @@ state is only restored correctly if the buffer was not 
modified."
         (prog1 (objed--switch-to obj os range)
           (goto-char pos)
           ;; FIXME
-          (objed--unmark-all)
+          (objed-unmark-all)
           (when ovps
             (objed--mark-ovps ovps))))
     (prog1 nil