diff options
| author | Andreas Schwab <schwab@suse.de> | 2007-08-08 11:52:16 +0000 |
|---|---|---|
| committer | Andreas Schwab <schwab@suse.de> | 2007-08-08 11:52:16 +0000 |
| commit | eac59e3cc7d84cd557d5546fb5000289560eb686 (patch) | |
| tree | a482dd4b4413c7ed71e6604ed66dac026120cfdd /lisp/mail/mailabbrev.el | |
| parent | 4b4a23c4663c67e756cd45cdb80569a201e26afc (diff) | |
| download | emacs-eac59e3cc7d84cd557d5546fb5000289560eb686.tar.gz emacs-eac59e3cc7d84cd557d5546fb5000289560eb686.tar.bz2 emacs-eac59e3cc7d84cd557d5546fb5000289560eb686.zip | |
(sendmail-pre-abbrev-expand-hook): Check for
self-insert-command, not self-insert.
Diffstat (limited to 'lisp/mail/mailabbrev.el')
| -rw-r--r-- | lisp/mail/mailabbrev.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/mail/mailabbrev.el b/lisp/mail/mailabbrev.el index b3e2c051e7d..8862e6ca2d2 100644 --- a/lisp/mail/mailabbrev.el +++ b/lisp/mail/mailabbrev.el @@ -495,7 +495,7 @@ of a mail alias. The value is set up, buffer-local, when first needed.") (or (and (integerp last-command-char) ;; Some commands such as M-> may want to expand first. - (equal this-command 'self-insert) + (equal this-command 'self-insert-command) (or (eq (char-syntax last-command-char) ?_) ;; Don't expand on @. (memq last-command-char '(?@ ?. ?% ?! ?_ ?-)))) |