diff options
| author | Stefan Kangas <stefan@marxist.se> | 2021-12-14 12:35:57 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2021-12-14 16:10:54 +0100 |
| commit | 8704165197d987bc91bce336a73d23fc45669fa3 (patch) | |
| tree | 89c19280b29fdb478d29bbde081adab67d9346f0 /lisp/arc-mode.el | |
| parent | 78a9d151b5c53ddcd1408e0ab38b1a53d58fad85 (diff) | |
| download | emacs-8704165197d987bc91bce336a73d23fc45669fa3.tar.gz | |
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.
Diffstat (limited to 'lisp/arc-mode.el')
| -rw-r--r-- | lisp/arc-mode.el | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el index 5576ae35053..1fd1d66c360 100644 --- a/lisp/arc-mode.el +++ b/lisp/arc-mode.el @@ -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) |