Mercurial > emacs
comparison lisp/arc-mode.el @ 49166:05ad80e1c6d2
(archive-mode-map): Use command remapping instead of substitute-key-definition.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Sun, 12 Jan 2003 20:45:19 +0000 |
| parents | 65903e252ec1 |
| children | 86973b914660 |
comparison
equal
deleted
inserted
replaced
| 49165:ab4091602937 | 49166:05ad80e1c6d2 |
|---|---|
| 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 |
| 7 ;; Favourite-brand-of-beer: None, I hate beer. | 7 ;; Favourite-brand-of-beer: None, I hate beer. |
| 8 | 8 |
| 616 (if archive-lemacs | 616 (if archive-lemacs |
| 617 (progn | 617 (progn |
| 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) |
| 626 | 626 |
| 627 (if archive-lemacs | 627 (if archive-lemacs |