Mercurial > emacs
changeset 49171:e0c2ecbf4fc5
(Commentary): Use command remapping instead of
substitute-key-definition.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Sun, 12 Jan 2003 20:48:49 +0000 |
| parents | fffd84e47253 |
| children | 0d696afaf14c |
| files | lisp/mail/mailabbrev.el |
| diffstat | 1 files changed, 3 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/mailabbrev.el Sun Jan 12 20:48:16 2003 +0000 +++ b/lisp/mail/mailabbrev.el Sun Jan 12 20:48:49 2003 +0000 @@ -1,6 +1,6 @@ ;;; mailabbrev.el --- abbrev-expansion of mail aliases -;; Copyright (C) 1985, 86, 87, 92, 93, 96, 1997, 2000, 2002 +;; Copyright (C) 1985, 86, 87, 92, 93, 96, 1997, 2000, 2002, 2003 ;; Free Software Foundation, Inc. ;; Author: Jamie Zawinski <jwz@lucid.com>, now <jwz@jwz.org> @@ -111,10 +111,8 @@ ;; (add-hook ;; 'mail-mode-hook ;; (lambda () -;; (substitute-key-definition 'next-line 'mail-abbrev-next-line -;; mail-mode-map global-map) -;; (substitute-key-definition 'end-of-buffer 'mail-abbrev-end-of-buffer -;; mail-mode-map global-map))) +;; (define-key mail-mode-map [remap next-line] 'mail-abbrev-next-line) +;; (define-key mail-mode-map [remap end-of-buffer] 'mail-abbrev-end-of-buffer))) ;; ;; If you want multiple addresses separated by a string other than ", " then ;; you can set the variable mail-alias-separator-string to it. This has to