diff options
| author | Glenn Morris <rgm@gnu.org> | 2009-01-09 04:36:00 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2009-01-09 04:36:00 +0000 |
| commit | a4d9b7bca3dc69efe89eecbd81ed96859f7cd818 (patch) | |
| tree | a946b8d6c185093144a33d99a33c9fbaed0eb068 /lisp/mail | |
| parent | 61a846fbec62231eb19bdd41e08fd89f57787195 (diff) | |
| download | emacs-a4d9b7bca3dc69efe89eecbd81ed96859f7cd818.tar.gz | |
Replace last-command-char with last-command-event.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/mailabbrev.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/mail/mailabbrev.el b/lisp/mail/mailabbrev.el index 85dfa24dc46..7e2d62da05c 100644 --- a/lisp/mail/mailabbrev.el +++ b/lisp/mail/mailabbrev.el @@ -1,7 +1,8 @@ ;;; mailabbrev.el --- abbrev-expansion of mail aliases ;; Copyright (C) 1985, 1986, 1987, 1992, 1993, 1996, 1997, 2000, 2001, -;; 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. +;; 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 +;; Free Software Foundation, Inc. ;; Author: Jamie Zawinski <jwz@lucid.com; now jwz@jwz.org> ;; Maintainer: FSF @@ -500,12 +501,12 @@ of a mail alias. The value is set up, buffer-local, when first needed.") ;; when the user types -.) Check the character's syntax in ;; the usual syntax table. - (or (and (integerp last-command-char) + (or (and (integerp last-command-event) ;; Some commands such as M-> may want to expand first. (equal this-command 'self-insert-command) - (or (eq (char-syntax last-command-char) ?_) + (or (eq (char-syntax last-command-event) ?_) ;; Don't expand on @. - (memq last-command-char '(?@ ?. ?% ?! ?_ ?-)))) + (memq last-command-event '(?@ ?. ?% ?! ?_ ?-)))) ;; Use this table so that abbrevs can have hyphens in them. (with-syntax-table mail-abbrev-syntax-table (funcall expand)))) |