# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 1042404319 0
# Node ID 05ad80e1c6d26d84f242f470dc5665396404fbd8
# Parent  ab409160293743f4cae02147d0d1b59c1db6f94f
(archive-mode-map): Use command remapping instead of substitute-key-definition.

diff -r ab4091602937 -r 05ad80e1c6d2 lisp/arc-mode.el
--- a/lisp/arc-mode.el	Sun Jan 12 20:24:57 2003 +0000
+++ b/lisp/arc-mode.el	Sun Jan 12 20:45:19 2003 +0000
@@ -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 @@
 	;; 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)