174 |
|
|
175 |
(defvar kmacro-keymap |
(defvar kmacro-keymap |
176 |
(let ((map (make-sparse-keymap))) |
(let ((map (make-sparse-keymap))) |
177 |
(define-key map "\C-s" 'kmacro-start-macro) |
(define-key map "s" 'kmacro-start-macro) |
178 |
(define-key map "\C-k" 'kmacro-end-or-call-macro-repeat) |
(define-key map "\C-k" 'kmacro-end-or-call-macro-repeat) |
179 |
(define-key map "\C-e" 'kmacro-edit-macro-repeat) |
(define-key map "\C-e" 'kmacro-edit-macro-repeat) |
180 |
(define-key map "\r" 'kmacro-edit-macro) |
(define-key map "\r" 'kmacro-edit-macro) |
190 |
(define-key map "\C-f" 'kmacro-set-format) |
(define-key map "\C-f" 'kmacro-set-format) |
191 |
(define-key map "\C-c" 'kmacro-set-counter) |
(define-key map "\C-c" 'kmacro-set-counter) |
192 |
(define-key map "\C-t" 'kmacro-swap-ring) |
(define-key map "\C-t" 'kmacro-swap-ring) |
193 |
(define-key map "\C-b" 'kmacro-bind-to-key) |
(define-key map "b" 'kmacro-bind-to-key) |
194 |
(define-key map "\C-d" 'kmacro-delete-ring-head) |
(define-key map "\C-d" 'kmacro-delete-ring-head) |
195 |
;; Compatibility bindings |
;; Compatibility bindings |
196 |
(define-key map "q" 'kbd-macro-query) |
(define-key map "q" 'kbd-macro-query) |