diff options
| author | Richard M. Stallman <rms@gnu.org> | 2007-05-08 18:15:58 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2007-05-08 18:15:58 +0000 |
| commit | 75dcf19e449ab2838b29f2cd07fdb20c26c95f4d (patch) | |
| tree | 929198ed7f53d31a85f6090b8e994a0bceea1918 /lisp | |
| parent | 11c4b29d3a3c1f3491e0822eb50fc3c285a047d2 (diff) | |
| download | emacs-75dcf19e449ab2838b29f2cd07fdb20c26c95f4d.tar.gz emacs-75dcf19e449ab2838b29f2cd07fdb20c26c95f4d.tar.bz2 emacs-75dcf19e449ab2838b29f2cd07fdb20c26c95f4d.zip | |
(sendmail-pre-abbrev-expand-hook):
Don't include non-self-insert commands in the exception for `-'.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/mail/mailabbrev.el | 2 |
2 files changed, 7 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index be19004e954..fc66478ebee 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-05-08 Richard Stallman <rms@gnu.org> + + * mail/mailabbrev.el (sendmail-pre-abbrev-expand-hook): + Don't include non-self-insert commands in the exception for `-'. + 2007-05-08 David Reitter <david.reitter@gmail.com> * progmodes/python.el (python-guess-indent): Check non-nullness 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.") ;; the usual syntax table. (or (and (integerp last-command-char) + ;; Some commands such as M-> may want to expand first. + (equal this-command 'self-insert) (or (eq (char-syntax last-command-char) ?_) ;; Don't expand on @. (memq last-command-char '(?@ ?. ?% ?! ?_ ?-)))) |