Mercurial > emacs
comparison lisp/mail/mailabbrev.el @ 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 | 29a49406ad9d |
children | d6c91e697cdc d7ddb3e565de |
comparison
equal
deleted
inserted
replaced
49170:fffd84e47253 | 49171:e0c2ecbf4fc5 |
---|---|
1 ;;; mailabbrev.el --- abbrev-expansion of mail aliases | 1 ;;; mailabbrev.el --- abbrev-expansion of mail aliases |
2 | 2 |
3 ;; Copyright (C) 1985, 86, 87, 92, 93, 96, 1997, 2000, 2002 | 3 ;; Copyright (C) 1985, 86, 87, 92, 93, 96, 1997, 2000, 2002, 2003 |
4 ;; Free Software Foundation, Inc. | 4 ;; Free Software Foundation, Inc. |
5 | 5 |
6 ;; Author: Jamie Zawinski <jwz@lucid.com>, now <jwz@jwz.org> | 6 ;; Author: Jamie Zawinski <jwz@lucid.com>, now <jwz@jwz.org> |
7 ;; Maintainer: FSF | 7 ;; Maintainer: FSF |
8 ;; Created: 19 Oct 90 | 8 ;; Created: 19 Oct 90 |
109 ;; type SPC at the end of the abbrev before moving away) then you can do | 109 ;; type SPC at the end of the abbrev before moving away) then you can do |
110 ;; | 110 ;; |
111 ;; (add-hook | 111 ;; (add-hook |
112 ;; 'mail-mode-hook | 112 ;; 'mail-mode-hook |
113 ;; (lambda () | 113 ;; (lambda () |
114 ;; (substitute-key-definition 'next-line 'mail-abbrev-next-line | 114 ;; (define-key mail-mode-map [remap next-line] 'mail-abbrev-next-line) |
115 ;; mail-mode-map global-map) | 115 ;; (define-key mail-mode-map [remap end-of-buffer] 'mail-abbrev-end-of-buffer))) |
116 ;; (substitute-key-definition 'end-of-buffer 'mail-abbrev-end-of-buffer | |
117 ;; mail-mode-map global-map))) | |
118 ;; | 116 ;; |
119 ;; If you want multiple addresses separated by a string other than ", " then | 117 ;; If you want multiple addresses separated by a string other than ", " then |
120 ;; you can set the variable mail-alias-separator-string to it. This has to | 118 ;; you can set the variable mail-alias-separator-string to it. This has to |
121 ;; be a comma bracketed by whitespace if you want any kind of reasonable | 119 ;; be a comma bracketed by whitespace if you want any kind of reasonable |
122 ;; behaviour. | 120 ;; behaviour. |