diff options
| author | Glenn Morris <rgm@gnu.org> | 2009-01-09 04:55:50 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2009-01-09 04:55:50 +0000 |
| commit | 0f69e911dc3d3782f3632ff72d256f1773fa76c3 (patch) | |
| tree | e6b132764703e0628129c4f604d12647a97a3208 /lisp/mh-e | |
| parent | 8989a9203f73473569ddf83e505a846609def407 (diff) | |
| download | emacs-0f69e911dc3d3782f3632ff72d256f1773fa76c3.tar.gz emacs-0f69e911dc3d3782f3632ff72d256f1773fa76c3.tar.bz2 emacs-0f69e911dc3d3782f3632ff72d256f1773fa76c3.zip | |
Replace last-input-char with last-input-event.
Diffstat (limited to 'lisp/mh-e')
| -rw-r--r-- | lisp/mh-e/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/mh-e/mh-letter.el | 8 |
2 files changed, 8 insertions, 4 deletions
diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog index 06b8244ea4e..969d91112f3 100644 --- a/lisp/mh-e/ChangeLog +++ b/lisp/mh-e/ChangeLog @@ -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. diff --git a/lisp/mh-e/mh-letter.el b/lisp/mh-e/mh-letter.el index dc90066099c..45f8c3d08bf 100644 --- a/lisp/mh-e/mh-letter.el +++ b/lisp/mh-e/mh-letter.el @@ -617,7 +617,7 @@ a copy of the draft." 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 @@ Create the field if it does not exist. 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 @@ Set the mark to point before moving." (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 "[:,]")))) |