(sendmail-pre-abbrev-expand-hook):

If last-command-char is not a character, don't do the expand here.
This commit is contained in:
Richard M. Stallman 1993-06-11 20:48:08 +00:00
parent b3771493d9
commit 645d62199d

View file

@ -460,7 +460,8 @@ characters which may be a part of the name of a mail-alias.")
;; the mail-mode-header-syntax-table.
(set-syntax-table mail-mode-header-syntax-table)
(or (eq (char-syntax last-command-char) ?_)
(or (not (integerp last-command-char))
(eq (char-syntax last-command-char) ?_)
(let ((pre-abbrev-expand-hook nil)) ; That's us; don't loop.
;; Use this table so that abbrevs can have hyphens in them.
(set-syntax-table mail-abbrev-syntax-table)