Replace last-command-char with last-command-event.

This commit is contained in:
Glenn Morris 2009-01-09 04:29:16 +00:00
parent 51bc9aff5e
commit 61a846fbec
5 changed files with 9 additions and 6 deletions

View file

@ -474,7 +474,7 @@ character is inserted ARG times.
This command assumes point is not in a string or comment."
(interactive "P")
(if (not (and open close))
(let ((pair (or (assq last-command-char insert-pair-alist)
(let ((pair (or (assq last-command-event insert-pair-alist)
(assq (event-basic-type last-command-event)
insert-pair-alist))))
(if pair

View file

@ -564,7 +564,7 @@ optional fourth argument FORCE is non-nil."
(interactive)
(setq reb-subexp-displayed
(or subexp (string-to-number (format "%c" last-command-char))))
(or subexp (string-to-number (format "%c" last-command-event))))
(reb-update-modestring)
(reb-do-update reb-subexp-displayed))