leoliu pushed a commit to branch master
in repository elpa.
commit 92efe3031f68905613efff74c5813334366ac063
Author: Leo Liu <sdl....@gmail.com>
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)
