changeset 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 32334cd7302e
children 8d4caf39c19f
files lisp/mail/mailabbrev.el
diffstat 1 files changed, 2 insertions(+), 0 deletions(-) [+]
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 '(?@ ?. ?% ?! ?_ ?-))))