# HG changeset patch # User Richard M. Stallman # Date 739837335 0 # Node ID 87f7ff6bba51038bc7eed2d446d91deab9e49ef6 # Parent f4a7ac2ec6516a3c096a0ef8c2a9738eebf576f1 (sendmail-pre-abbrev-expand-hook): If last-command-char is not a character, don't check char-syntax. diff -r f4a7ac2ec651 -r 87f7ff6bba51 lisp/mail/mailabbrev.el --- a/lisp/mail/mailabbrev.el Fri Jun 11 21:33:27 1993 +0000 +++ b/lisp/mail/mailabbrev.el Fri Jun 11 22:22:15 1993 +0000 @@ -460,8 +460,8 @@ ;; the mail-mode-header-syntax-table. (set-syntax-table mail-mode-header-syntax-table) - (or (not (integerp last-command-char)) - (eq (char-syntax last-command-char) ?_) + (or (and (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)