[elpa] externals/ebdb ac0b822 010/350: Switch to using kbd macro in keymap def

[Eric Abrahamsen]

branch: externals/ebdb
commit ac0b822f09ae6547e08d6ccc28c4727e0ef5fad4
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    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'