[elpa] 36/77: New variable easy-kill-base-map for customising key bindings

[Leo Liu]

leoliu pushed a commit to branch master
in repository elpa.

commit 92efe3031f68905613efff74c5813334366ac063
Author: Leo Liu <address@hidden>
Date:   Thu Oct 10 20:27:32 2013 +0800

    New variable easy-kill-base-map for customising key bindings
---
 easy-kill.el |   17 +++++++++++------
 1 files changed, 11 insertions(+), 6 deletions(-)

diff --git a/easy-kill.el b/easy-kill.el
index 552cb40..d92a64b 100644
--- a/easy-kill.el
+++ b/easy-kill.el
@@ -45,8 +45,11 @@ CHAR is used immediately following `easy-kill' to select 
THING."
   :type '(repeat (cons character symbol))
   :group 'killing)
 
-(defun easy-kill-map ()
-  "Build the keymap according to `easy-kill-alist'."
+(defface easy-kill-face '((t (:inherit 'secondary-selection)))
+  "Faced used to highlight kill candidate."
+  :group 'killing)
+
+(defvar easy-kill-base-map
   (let ((map (make-sparse-keymap)))
     (define-key map "-" 'easy-kill-shrink)
     (define-key map "+" 'easy-kill-expand)
@@ -57,16 +60,18 @@ CHAR is used immediately following `easy-kill' to select 
THING."
     (mapc (lambda (d)
             (define-key map (number-to-string d) 'easy-kill-digit-argument))
           (number-sequence 0 9))
+    map))
+
+(defun easy-kill-map ()
+  "Build the keymap according to `easy-kill-alist'."
+  (let ((map (make-sparse-keymap)))
+    (set-keymap-parent map easy-kill-base-map)
     (mapc (lambda (c)
             ;; (define-key map (vector meta-prefix-char c) 'easy-kill-select)
             (define-key map (char-to-string c) 'easy-kill-thing))
           (mapcar 'car easy-kill-alist))
     map))
 
-(defface easy-kill-face '((t (:inherit 'secondary-selection)))
-  "Faced used to highlight kill candidate."
-  :group 'killing)
-
 (defun easy-kill-message-nolog (format-string &rest args)
   "Same as `message' except not writing to *Messages* buffer."
   (let (message-log-max)