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 <>
* mh-letter.el: Replace last-input-char with last-input-event.
2008-08-18 Bill Wohler <>
Release MH-E version 8.1.
......@@ -617,7 +617,7 @@ a copy of the draft."
(let ((last-input-char ?\C-f))
(let ((last-input-event ?\C-f))
......@@ -647,10 +647,10 @@ Create the field if it does not exist.
Set the mark to point before moving."
(let ((target (cdr (or (assoc (char-to-string (logior last-input-char ?`))
(let ((target (cdr (or (assoc (char-to-string (logior last-input-event ?`))
;; also look for a char for version 4 compat
(assoc (logior last-input-char ?`)
(assoc (logior last-input-event ?`)
(case-fold-search t))
......@@ -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))
(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