diff options
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/mailabbrev.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/mail/mailabbrev.el b/lisp/mail/mailabbrev.el index c62cba4822d..b83b3864cb4 100644 --- a/lisp/mail/mailabbrev.el +++ b/lisp/mail/mailabbrev.el | |||
| @@ -494,6 +494,8 @@ of a mail alias. The value is set up, buffer-local, when first needed.") | |||
| 494 | ;; the usual syntax table. | 494 | ;; the usual syntax table. |
| 495 | 495 | ||
| 496 | (or (and (integerp last-command-char) | 496 | (or (and (integerp last-command-char) |
| 497 | ;; Some commands such as M-> may want to expand first. | ||
| 498 | (equal this-command 'self-insert) | ||
| 497 | (or (eq (char-syntax last-command-char) ?_) | 499 | (or (eq (char-syntax last-command-char) ?_) |
| 498 | ;; Don't expand on @. | 500 | ;; Don't expand on @. |
| 499 | (memq last-command-char '(?@ ?. ?% ?! ?_ ?-)))) | 501 | (memq last-command-char '(?@ ?. ?% ?! ?_ ?-)))) |