diff options
| author | Richard M. Stallman | 1993-07-20 05:21:25 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-07-20 05:21:25 +0000 |
| commit | 9a4cc6bd8d0692da02a659a021efe4925533725e (patch) | |
| tree | 27df216cb23cd24ff316d3cf4b7d2fc29ff64f88 | |
| parent | 908d6b8719528b503b83bf9914ac564a0e41c373 (diff) | |
| download | emacs-9a4cc6bd8d0692da02a659a021efe4925533725e.tar.gz emacs-9a4cc6bd8d0692da02a659a021efe4925533725e.zip | |
(rmail-edit-map): Inherit properly from text-mode-map;
use the whole thing, not its cdr.
| -rw-r--r-- | lisp/mail/rmailedit.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/mail/rmailedit.el b/lisp/mail/rmailedit.el index 86e0f251f2b..c6c355a5a8a 100644 --- a/lisp/mail/rmailedit.el +++ b/lisp/mail/rmailedit.el | |||
| @@ -28,7 +28,8 @@ | |||
| 28 | (defvar rmail-edit-map nil) | 28 | (defvar rmail-edit-map nil) |
| 29 | (if rmail-edit-map | 29 | (if rmail-edit-map |
| 30 | nil | 30 | nil |
| 31 | (setq rmail-edit-map (nconc (make-sparse-keymap) (cdr text-mode-map))) | 31 | ;; Make a keymap that inherits text-mode-map. |
| 32 | (setq rmail-edit-map (nconc (make-sparse-keymap) text-mode-map)) | ||
| 32 | (define-key rmail-edit-map "\C-c\C-c" 'rmail-cease-edit) | 33 | (define-key rmail-edit-map "\C-c\C-c" 'rmail-cease-edit) |
| 33 | (define-key rmail-edit-map "\C-c\C-]" 'rmail-abort-edit)) | 34 | (define-key rmail-edit-map "\C-c\C-]" 'rmail-abort-edit)) |
| 34 | 35 | ||