diff options
| author | Andreas Schwab | 2003-01-12 20:45:19 +0000 |
|---|---|---|
| committer | Andreas Schwab | 2003-01-12 20:45:19 +0000 |
| commit | f3446bb2f92f2f25dcd696e66a5d56a0af83b7b0 (patch) | |
| tree | 120451a5d75dd9898980ff09443df0d3b278e219 | |
| parent | 94e8ffca662dd2a8f0a6cf4fe98493c1ae6892e5 (diff) | |
| download | emacs-f3446bb2f92f2f25dcd696e66a5d56a0af83b7b0.tar.gz emacs-f3446bb2f92f2f25dcd696e66a5d56a0af83b7b0.zip | |
(archive-mode-map): Use command remapping instead of substitute-key-definition.
| -rw-r--r-- | lisp/arc-mode.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el index 32cc3fb27c3..643ea6d5d39 100644 --- a/lisp/arc-mode.el +++ b/lisp/arc-mode.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; arc-mode.el --- simple editing of archives | 1 | ;;; arc-mode.el --- simple editing of archives |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1995, 1997, 1998 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1995, 1997, 1998, 2003 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Morten Welinder <terra@diku.dk> | 5 | ;; Author: Morten Welinder <terra@diku.dk> |
| 6 | ;; Keywords: archives msdog editing major-mode | 6 | ;; Keywords: archives msdog editing major-mode |
| @@ -618,8 +618,8 @@ archive. | |||
| 618 | ;; Not a nice "solution" but it'll have to do | 618 | ;; Not a nice "solution" but it'll have to do |
| 619 | (define-key archive-mode-map "\C-xu" 'archive-undo) | 619 | (define-key archive-mode-map "\C-xu" 'archive-undo) |
| 620 | (define-key archive-mode-map "\C-_" 'archive-undo)) | 620 | (define-key archive-mode-map "\C-_" 'archive-undo)) |
| 621 | (substitute-key-definition 'undo 'archive-undo | 621 | (define-key archive-mode-map [remap advertised-undo] 'archive-undo) |
| 622 | archive-mode-map global-map)) | 622 | (define-key archive-mode-map [remap undo] 'archive-undo)) |
| 623 | 623 | ||
| 624 | (define-key archive-mode-map | 624 | (define-key archive-mode-map |
| 625 | (if archive-lemacs 'button2 [mouse-2]) 'archive-mouse-extract) | 625 | (if archive-lemacs 'button2 [mouse-2]) 'archive-mouse-extract) |