[elpa] externals/objed 8cf155e 56/59: Add prefix key for user-map

[Clemens Radermacher]

branch: externals/objed
commit 8cf155e8e519a252321665d57d4b49ecb8e715f0
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>

    Add prefix key for user-map
---
 objed.el | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/objed.el b/objed.el
index d8ed8b5..1405b45 100644
--- a/objed.el
+++ b/objed.el
@@ -746,10 +746,10 @@ selected one."
       (objed-define-op nil flyspell-region))
 
     ;; quote op
-    (define-key map "'"
-      (objed-define-op nil objed-electric-pair))
     (define-key map "\""
-      (objed-define-op nil objed-electric))
+      (objed-define-op nil objed-electric-pair))
+    ;; (define-key map "\""
+    ;;   (objed-define-op nil objed-electric))
 
     ;; direct object switches
     (define-key map "." 'objed-goto-next-identifier)
@@ -761,6 +761,7 @@ selected one."
     ;; prefix keys
     (define-key map "x" 'objed-op-map)
     (define-key map "c" 'objed-object-map)
+    (define-key map "'" 'objed-user-map)
 
     ;; special commands
     (define-key map "*" 'objed-mark-more)
@@ -886,6 +887,11 @@ To define new operations see `objed-define-op'.")
   (kill-buffer (current-buffer))
   (objed--init (or objed--object 'char)))
 
+(defvar objed-user-map
+  (let ((map (objed--define-prefix "'" 'objed-user-map)))
+    map)
+  "Keymap for custom user bindings.")
+
 
 (defvar objed-object-map
   (let ((map (objed--define-prefix "c" 'objed-object-map)))