diff options
| author | Richard M. Stallman | 1995-09-04 20:26:58 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-09-04 20:26:58 +0000 |
| commit | 0eef787b4903ccd8eb2f83b49f42cb43511f8a13 (patch) | |
| tree | 502a83d63c6bf73e89c7e7c9dbc0faf7cd4d376b | |
| parent | fc299663f433667c891ffee902c80340919fb6fd (diff) | |
| download | emacs-0eef787b4903ccd8eb2f83b49f42cb43511f8a13.tar.gz emacs-0eef787b4903ccd8eb2f83b49f42cb43511f8a13.zip | |
(mail-interactive-insert-alias): Call mail-abbrev-expand-hook.
| -rw-r--r-- | lisp/mail/mailabbrev.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/mail/mailabbrev.el b/lisp/mail/mailabbrev.el index c4f1a71f426..84debb0bd95 100644 --- a/lisp/mail/mailabbrev.el +++ b/lisp/mail/mailabbrev.el | |||
| @@ -505,7 +505,8 @@ characters which may be a part of the name of a mail alias.") | |||
| 505 | (if (not (vectorp mail-abbrevs)) (mail-abbrevs-setup)) | 505 | (if (not (vectorp mail-abbrevs)) (mail-abbrevs-setup)) |
| 506 | (list (completing-read "Expand alias: " mail-abbrevs nil t)))) | 506 | (list (completing-read "Expand alias: " mail-abbrevs nil t)))) |
| 507 | (if (not (vectorp mail-abbrevs)) (mail-abbrevs-setup)) | 507 | (if (not (vectorp mail-abbrevs)) (mail-abbrevs-setup)) |
| 508 | (insert (or (and alias (symbol-value (intern-soft alias mail-abbrevs))) ""))) | 508 | (insert (or (and alias (symbol-value (intern-soft alias mail-abbrevs))) "")) |
| 509 | (mail-abbrev-expand-hook)) | ||
| 509 | 510 | ||
| 510 | (defun mail-abbrev-next-line (&optional arg) | 511 | (defun mail-abbrev-next-line (&optional arg) |
| 511 | "Expand any mail abbrev, then move cursor vertically down ARG lines. | 512 | "Expand any mail abbrev, then move cursor vertically down ARG lines. |