diff lisp/mail/mailabbrev.el @ 77664:f79d4df148cb

(sendmail-pre-abbrev-expand-hook): Don't include non-self-insert commands in the exception for `-'.
author Richard M. Stallman <rms@gnu.org>
date Tue, 08 May 2007 18:15:07 +0000
parents e3694f1cb928
children 8e27d63c45eb d7172f202ab8
line wrap: on
line diff
--- a/lisp/mail/mailabbrev.el	Tue May 08 01:35:26 2007 +0000
+++ b/lisp/mail/mailabbrev.el	Tue May 08 18:15:07 2007 +0000
@@ -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 '(?@ ?. ?% ?! ?_ ?-))))