Commit 0f69e911 authored by Glenn Morris's avatar Glenn Morris
Browse files

Replace last-input-char with last-input-event.

parent 8989a920
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.
......
......@@ -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 "[:,]"))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment