From: Andreas Schwab Date: Wed, 8 Aug 2007 11:51:48 +0000 (+0000) Subject: (sendmail-pre-abbrev-expand-hook): Check for X-Git-Tag: emacs-pretest-22.1.90~1038 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ece1116442ad1858cf122f0725a4650ef3d5e88e;p=emacs.git (sendmail-pre-abbrev-expand-hook): Check for self-insert-command, not self-insert. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 29e9027e54e..f817d235f57 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-08-08 Andreas Schwab + + * mail/mailabbrev.el (sendmail-pre-abbrev-expand-hook): Check for + self-insert-command, not self-insert. + 2007-08-08 Glenn Morris * emacs-lisp/checkdoc.el (checkdoc-ispell-lisp-words): Remove `iff'. 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 '(?@ ?. ?% ?! ?_ ?-))))