branch: externals/ebdb
commit ac0b822f09ae6547e08d6ccc28c4727e0ef5fad4
Author: Eric Abrahamsen <[email protected]>
Commit: Eric Abrahamsen <[email protected]>
Switch to using kbd macro in keymap def
* ebdb-com.el (ebdb-mode-map): Switch to kdb.
---
ebdb-com.el | 98 ++++++++++++++++++++++++++++++-------------------------------
1 file changed, 49 insertions(+), 49 deletions(-)
diff --git a/ebdb-com.el b/ebdb-com.el
index f96ec36..0f4c9f4 100644
--- a/ebdb-com.el
+++ b/ebdb-com.el
@@ -283,59 +283,59 @@ With ARG a negative number do not append."
;;; Keymap
(defvar ebdb-mode-map
(let ((km (make-sparse-keymap)))
- (define-key km "*" 'ebdb-do-all-records)
- (define-key km "+" 'ebdb-append-display)
- (define-key km "!" 'ebdb-search-invert)
- (define-key km "a" 'ebdb-record-action)
- (define-key km "A" 'ebdb-mail-aliases)
- (define-key km "c" 'ebdb-create-record)
- (define-key km "C" 'ebdb-create-record-extended)
- (define-key km "e" 'ebdb-edit-field)
- (define-key km "E" 'ebdb-edit-field-customize)
- (define-key km ";" 'ebdb-edit-foo)
- (define-key km "n" 'ebdb-next-record)
- (define-key km "p" 'ebdb-prev-record)
- (define-key km "N" 'ebdb-next-field)
- (define-key km "\t" 'ebdb-next-field) ; TAB
- (define-key km "P" 'ebdb-prev-field)
- (define-key km "\d" 'ebdb-prev-field) ; DEL
- (define-key km "d" 'ebdb-delete-field-or-record)
- (define-key km "\C-k" 'ebdb-delete-field-or-record)
- (define-key km "i" 'ebdb-insert-field)
+ (define-key km (kbd "*") 'ebdb-do-all-records)
+ (define-key km (kbd "+") 'ebdb-append-display)
+ (define-key km (kbd "!") 'ebdb-search-invert)
+ (define-key km (kbd "a") 'ebdb-record-action)
+ (define-key km (kbd "A") 'ebdb-mail-aliases)
+ (define-key km (kbd "c") 'ebdb-create-record)
+ (define-key km (kbd "C") 'ebdb-create-record-extended)
+ (define-key km (kbd "e") 'ebdb-edit-field)
+ (define-key km (kbd "E") 'ebdb-edit-field-customize)
+ (define-key km (kbd ";") 'ebdb-edit-foo)
+ (define-key km (kbd "n") 'ebdb-next-record)
+ (define-key km (kbd "p") 'ebdb-prev-record)
+ (define-key km (kbd "N") 'ebdb-next-field)
+ (define-key km (kbd "TAB") 'ebdb-next-field) ; TAB
+ (define-key km (kbd "P") 'ebdb-prev-field)
+ (define-key km (kbd "DEL") 'ebdb-prev-field) ; DEL
+ (define-key km (kbd "d") 'ebdb-delete-field-or-record)
+ (define-key km (kbd "C-k") 'ebdb-delete-field-or-record)
+ (define-key km (kbd "i") 'ebdb-insert-field)
(define-key km (kbd "RET") 'ebdb-follow-related)
- (define-key km "s" 'ebdb-save)
- (define-key km "\C-x\C-s" 'ebdb-save)
- (define-key km "t" 'ebdb-toggle-records-format)
- (define-key km "T" 'ebdb-display-records-completely)
+ (define-key km (kbd "s") 'ebdb-save)
+ (define-key km (kbd "C-x C-s") 'ebdb-save)
+ (define-key km (kbd "t") 'ebdb-toggle-records-format)
+ (define-key km (kbd "T") 'ebdb-display-records-completely)
(define-key km (kbd "#") 'ebdb-toggle-record-mark)
- (define-key km "o" 'ebdb-omit-record)
- (define-key km "m" 'ebdb-mail)
- (define-key km "M" 'ebdb-mail-address)
- (define-key km "\M-d" 'ebdb-dial)
- (define-key km "h" 'ebdb-info)
- (define-key km "?" 'ebdb-help)
- ;; (define-key km "q" 'quit-window) ; part of `special-mode' bindings
- (define-key km "\C-x\C-t" 'ebdb-transpose-fields)
- (define-key km "Cr" 'ebdb-copy-records-as-kill)
- (define-key km "Cf" 'ebdb-copy-fields-as-kill)
- (define-key km "u" 'ebdb-browse-url)
- ;; (define-key km "P" 'ebdb-print)
- (define-key km "=" 'delete-other-windows)
+ (define-key km (kbd "o") 'ebdb-omit-record)
+ (define-key km (kbd "m") 'ebdb-mail)
+ (define-key km (kbd "M") 'ebdb-mail-address)
+ (define-key km (kbd "M-d") 'ebdb-dial)
+ (define-key km (kbd "h") 'ebdb-info)
+ (define-key km (kbd "?") 'ebdb-help)
+ ;; (define-key km (kbd "q" 'quit-window) ; part of `special-mode'
bindings
+ (define-key km (kbd "C-x C-t") 'ebdb-transpose-fields)
+ (define-key km (kbd "C r") 'ebdb-copy-records-as-kill)
+ (define-key km (kbd "C f") 'ebdb-copy-fields-as-kill)
+ (define-key km (kbd "u") 'ebdb-browse-url)
+ ;; (define-key km (kbd "P" 'ebdb-print)
+ (define-key km (kbd "=") 'delete-other-windows)
;; Search keys
- (define-key km "b" 'ebdb)
- (define-key km "/1" 'ebdb-display-records)
- (define-key km "/n" 'ebdb-search-name)
- (define-key km "/o" 'ebdb-search-organization)
- (define-key km "/p" 'ebdb-search-phone)
- (define-key km "/a" 'ebdb-search-address)
- (define-key km "/m" 'ebdb-search-mail)
- (define-key km "/N" 'ebdb-search-user-fields)
- (define-key km "/x" 'ebdb-search-user-fields)
- (define-key km "/c" 'ebdb-search-changed)
- (define-key km "/d" 'ebdb-search-duplicates)
- (define-key km "\C-xnw" 'ebdb-display-all-records)
- (define-key km "\C-xnd" 'ebdb-display-current-record)
+ (define-key km (kbd "b") 'ebdb)
+ (define-key km (kbd "/ 1") 'ebdb-display-records)
+ (define-key km (kbd "/ n") 'ebdb-search-name)
+ (define-key km (kbd "/ o") 'ebdb-search-organization)
+ (define-key km (kbd "/ p") 'ebdb-search-phone)
+ (define-key km (kbd "/ a") 'ebdb-search-address)
+ (define-key km (kbd "/ m") 'ebdb-search-mail)
+ (define-key km (kbd "/ N") 'ebdb-search-user-fields)
+ (define-key km (kbd "/ x") 'ebdb-search-user-fields)
+ (define-key km (kbd "/ c") 'ebdb-search-changed)
+ (define-key km (kbd "/ d") 'ebdb-search-duplicates)
+ (define-key km (kbd "C-x n w") 'ebdb-display-all-records)
+ (define-key km (kbd "C-x n d") 'ebdb-display-current-record)
(define-key km [delete] 'scroll-down) ; 24.1: part of `special-mode'
(define-key km " " 'scroll-up) ; 24.1: part of `special-mode'
