From 0f69e911dc3d3782f3632ff72d256f1773fa76c3 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 9 Jan 2009 04:55:50 +0000 Subject: [PATCH] Replace last-input-char with last-input-event. --- lisp/mh-e/ChangeLog | 4 ++++ 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 + + * mh-letter.el: Replace last-input-char with last-input-event. + 2008-08-18 Bill Wohler 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 "[:,]")))) -- 2.39.2