diff options
| author | Richard M. Stallman | 2002-02-09 09:46:08 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2002-02-09 09:46:08 +0000 |
| commit | f526e65a47f11a48cbaca1e0dfd608025bd0a904 (patch) | |
| tree | 949191435592aae94d66043655e7d560fbc4d480 | |
| parent | 18b0be7c203336ee8bebb212e6d9a3ef7f6d5a05 (diff) | |
| download | emacs-f526e65a47f11a48cbaca1e0dfd608025bd0a904.tar.gz emacs-f526e65a47f11a48cbaca1e0dfd608025bd0a904.zip | |
(mail-mode-map): Use eval-after-load to change it.
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/mail/mailabbrev.el | 8 |
2 files changed, 9 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 45adc741bcb..00f11001162 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2002-02-09 Richard M. Stallman <rms@gnu.org> | ||
| 2 | |||
| 3 | * mail/mailabbrev.el (mail-mode-map): Use eval-after-load to change it. | ||
| 4 | |||
| 1 | 2002-02-09 Kim F. Storm <storm@cua.dk> | 5 | 2002-02-09 Kim F. Storm <storm@cua.dk> |
| 2 | 6 | ||
| 3 | * faces.el (mode-line-inactive): New face for mode-line for | 7 | * faces.el (mode-line-inactive): New face for mode-line for |
diff --git a/lisp/mail/mailabbrev.el b/lisp/mail/mailabbrev.el index f57141dcb0e..5243438fbe8 100644 --- a/lisp/mail/mailabbrev.el +++ b/lisp/mail/mailabbrev.el | |||
| @@ -598,9 +598,11 @@ Don't use this command in Lisp programs! | |||
| 598 | (setq this-command 'end-of-buffer) | 598 | (setq this-command 'end-of-buffer) |
| 599 | (end-of-buffer arg)) | 599 | (end-of-buffer arg)) |
| 600 | 600 | ||
| 601 | (define-key mail-mode-map "\C-c\C-a" 'mail-abbrev-insert-alias) | 601 | (eval-after-load "sendmail" |
| 602 | (define-key mail-mode-map "\e\t" ; like lisp-complete-symbol | 602 | '(progn |
| 603 | 'mail-abbrev-complete-alias) | 603 | (define-key mail-mode-map "\C-c\C-a" 'mail-abbrev-insert-alias) |
| 604 | (define-key mail-mode-map "\e\t" ; like lisp-complete-symbol | ||
| 605 | 'mail-abbrev-complete-alias))) | ||
| 604 | 606 | ||
| 605 | ;;(define-key mail-mode-map "\C-n" 'mail-abbrev-next-line) | 607 | ;;(define-key mail-mode-map "\C-n" 'mail-abbrev-next-line) |
| 606 | ;;(define-key mail-mode-map "\M->" 'mail-abbrev-end-of-buffer) | 608 | ;;(define-key mail-mode-map "\M->" 'mail-abbrev-end-of-buffer) |