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

diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index 32cc3fb27c37f127a4661bd2828d1a9781cb852a..643ea6d5d39918b85583852a6b913b291afbf560 100644 (file)
--- a/lisp/arc-mode.el
+++ b/lisp/arc-mode.el
@@ -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)