aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/mail/mailabbrev.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/mail/mailabbrev.el b/lisp/mail/mailabbrev.el
index 3ac665259a9..dcdf3708d60 100644
--- a/lisp/mail/mailabbrev.el
+++ b/lisp/mail/mailabbrev.el
@@ -460,7 +460,8 @@ characters which may be a part of the name of a mail-alias.")
460 ;; the mail-mode-header-syntax-table. 460 ;; the mail-mode-header-syntax-table.
461 461
462 (set-syntax-table mail-mode-header-syntax-table) 462 (set-syntax-table mail-mode-header-syntax-table)
463 (or (eq (char-syntax last-command-char) ?_) 463 (or (not (integerp last-command-char))
464 (eq (char-syntax last-command-char) ?_)
464 (let ((pre-abbrev-expand-hook nil)) ; That's us; don't loop. 465 (let ((pre-abbrev-expand-hook nil)) ; That's us; don't loop.
465 ;; Use this table so that abbrevs can have hyphens in them. 466 ;; Use this table so that abbrevs can have hyphens in them.
466 (set-syntax-table mail-abbrev-syntax-table) 467 (set-syntax-table mail-abbrev-syntax-table)