[elpa] externals/objed 854dc3a 05/16: Add more bindings to op map

[Clemens Radermacher]

branch: externals/objed
commit 854dc3a13691a672d3d0fd1d201956033822ff2e
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>

    Add more bindings to op map
---
 objed.el | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/objed.el b/objed.el
index 4654e3e..092689c 100644
--- a/objed.el
+++ b/objed.el
@@ -811,7 +811,17 @@ Other single character keys are bound to 
`objed-undefined'."
       (objed-define-op nil objed-case-op))
 
     (define-key map "e" 'objed-eval)
+    (define-key map "d" 'dired-jump)
+    ;; remove restrictions
+    (define-key map "r" ctl-x-r-map)
     (define-key map "n" 'objed-narrow)
+    ;; less narrow
+    (define-key map "l" 'widen)
+
+    ;; TODO: undo propose integration
+    (define-key map "u" (objed--call-and-switch undo char))
+    (define-key map "z" 'objed-repeat)
+
     ;; actions analog to C-x C-KEY which exit
     (define-key map "s" 'save-buffer)
     (define-key map "f" 'find-file)
@@ -829,6 +839,12 @@ Other single character keys are bound to 
`objed-undefined'."
 
 To define new operations see `objed-define-op'.")
 
+(defun objed-repeat ()
+  (interactive)
+  (call-interactively 'repeat)
+  (setq real-this-command 'repeat)
+  (objed--switch-to 'char))
+
 (defun objed-other-window ()
   "Like `other-window' for objed."
   (interactive)