diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-06-11 20:48:08 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-06-11 20:48:08 +0000 |
| commit | 645d62199dfc9de6f8ef2e6af0cb38da810be17c (patch) | |
| tree | 1b31a91c167aebb4edc79c3575c398702dc9cd01 /lisp | |
| parent | b3771493d9292721f944f09f460aa45e9a68e5f2 (diff) | |
| download | emacs-645d62199dfc9de6f8ef2e6af0cb38da810be17c.tar.gz emacs-645d62199dfc9de6f8ef2e6af0cb38da810be17c.tar.bz2 emacs-645d62199dfc9de6f8ef2e6af0cb38da810be17c.zip | |
(sendmail-pre-abbrev-expand-hook):
If last-command-char is not a character, don't do the expand here.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mail/mailabbrev.el | 3 |
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.") ;; 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) |