1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00

Remove Emacs 21 compat code for command-remapping

* lisp/arc-mode.el (archive-mode-map):
* lisp/obsolete/iswitchb.el (iswitchb-global-map): Remove Emacs 21
compat code.
This commit is contained in:
Stefan Kangas 2021-12-14 12:35:57 +01:00
parent 78a9d151b5
commit 8704165197
2 changed files with 3 additions and 9 deletions

View File

@ -431,12 +431,8 @@ be added."
;; Let mouse-1 follow the link.
(define-key map [follow-link] 'mouse-face)
(if (fboundp 'command-remapping)
(progn
(define-key map [remap advertised-undo] 'archive-undo)
(define-key map [remap undo] 'archive-undo))
(substitute-key-definition 'advertised-undo 'archive-undo map global-map)
(substitute-key-definition 'undo 'archive-undo map global-map))
(define-key map [remap advertised-undo] #'archive-undo)
(define-key map [remap undo] #'archive-undo)
(define-key map [mouse-2] 'archive-extract)

View File

@ -467,9 +467,7 @@ interfere with other minibuffer usage.")
(switch-to-buffer-other-window . iswitchb-buffer-other-window)
(switch-to-buffer-other-frame . iswitchb-buffer-other-frame)
(display-buffer . iswitchb-display-buffer)))
(if (fboundp 'command-remapping)
(define-key map (vector 'remap (car b)) (cdr b))
(substitute-key-definition (car b) (cdr b) map global-map)))
(define-key map (vector 'remap (car b)) (cdr b)))
map)
"Global keymap for `iswitchb-mode'.")