(archive-mode-map): Use command remapping instead of substitute-key-definition.

This commit is contained in:
Andreas Schwab
2003-01-12 20:45:19 +00:00
parent 94e8ffca66
commit f3446bb2f9

View File

@@ -1,6 +1,6 @@
;;; arc-mode.el --- simple editing of archives
;; Copyright (C) 1995, 1997, 1998 Free Software Foundation, Inc.
;; Copyright (C) 1995, 1997, 1998, 2003 Free Software Foundation, Inc.
;; Author: Morten Welinder <terra@diku.dk>
;; Keywords: archives msdog editing major-mode
@@ -618,8 +618,8 @@ archive.
;; Not a nice "solution" but it'll have to do
(define-key archive-mode-map "\C-xu" 'archive-undo)
(define-key archive-mode-map "\C-_" 'archive-undo))
(substitute-key-definition 'undo 'archive-undo
archive-mode-map global-map))
(define-key archive-mode-map [remap advertised-undo] 'archive-undo)
(define-key archive-mode-map [remap undo] 'archive-undo))
(define-key archive-mode-map
(if archive-lemacs 'button2 [mouse-2]) 'archive-mouse-extract)