Mercurial > emacs
changeset 101011:04548ca9af08
Replace last-input-char with last-input-event.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Fri, 09 Jan 2009 04:55:50 +0000 |
| parents | 4efc7ca085ce |
| children | eadf79f14b29 |
| files | lisp/mh-e/ChangeLog lisp/mh-e/mh-letter.el |
| diffstat | 2 files changed, 8 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mh-e/ChangeLog Fri Jan 09 04:44:15 2009 +0000 +++ b/lisp/mh-e/ChangeLog Fri Jan 09 04:55:50 2009 +0000 @@ -1,3 +1,7 @@ +2009-01-09 Glenn Morris <rgm@gnu.org> + + * mh-letter.el: Replace last-input-char with last-input-event. + 2008-08-18 Bill Wohler <wohler@newt.com> Release MH-E version 8.1.
--- a/lisp/mh-e/mh-letter.el Fri Jan 09 04:44:15 2009 +0000 +++ b/lisp/mh-e/mh-letter.el Fri Jan 09 04:55:50 2009 +0000 @@ -617,7 +617,7 @@ mh-default-folder-for-message-function))) "") t))) - (let ((last-input-char ?\C-f)) + (let ((last-input-event ?\C-f)) (expand-abbrev) (save-excursion (mh-to-field) @@ -647,10 +647,10 @@ Set the mark to point before moving." (interactive) (expand-abbrev) - (let ((target (cdr (or (assoc (char-to-string (logior last-input-char ?`)) + (let ((target (cdr (or (assoc (char-to-string (logior last-input-event ?`)) mh-to-field-choices) ;; also look for a char for version 4 compat - (assoc (logior last-input-char ?`) + (assoc (logior last-input-event ?`) mh-to-field-choices)))) (case-fold-search t)) (push-mark) @@ -658,7 +658,7 @@ (let ((eol (point))) (skip-chars-backward " \t") (delete-region (point) eol)) - (if (and (not (eq (logior last-input-char ?`) ?s)) + (if (and (not (eq (logior last-input-event ?`) ?s)) (save-excursion (backward-char 1) (not (looking-at "[:,]"))))