andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Glenn Morris 2009-01-09 04:55:50 +00:00
parent 8989a9203f
commit 0f69e911dc
2 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/mh-e/ChangeLog
View file

@ -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.

8
lisp/mh-e/mh-letter.el
View file

@ -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 "[:,]"))))