[Emacs-diffs] Changes to emacs/lisp/mail/mailabbrev.el, v [EMACS_22_BASE]

[Richard M. Stallman]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Richard M. Stallman <rms>       07/05/08 18:15:07

Index: mailabbrev.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mail/mailabbrev.el,v
retrieving revision 1.82
retrieving revision 1.82.2.1
diff -u -b -r1.82 -r1.82.2.1
--- mailabbrev.el       21 Jan 2007 02:59:07 -0000      1.82
+++ mailabbrev.el       8 May 2007 18:15:07 -0000       1.82.2.1
@@ -494,6 +494,8 @@
             ;; 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 '(?@ ?. ?% ?! ?_ ?-))))