Mercurial > emacs
diff lisp/mh-e/mh-letter.el @ 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 | a9dc0e7c3f2b |
children | de1984cfab37 |
line wrap: on
line diff
--- 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 "[:,]"))))