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:
parent
78a9d151b5
commit
8704165197
@ -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)
|
||||
|
||||
|
@ -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'.")
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user