From 8989a9203f73473569ddf83e505a846609def407 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 9 Jan 2009 04:44:15 +0000 Subject: Replace last-command-char with last-command-event. --- lisp/allout.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'lisp/allout.el') diff --git a/lisp/allout.el b/lisp/allout.el index 354ab84b9db..98f729c93a9 100644 --- a/lisp/allout.el +++ b/lisp/allout.el @@ -3392,13 +3392,13 @@ this-command accordingly. Returns the qualifying command, if any, else nil." (interactive) - (let* ((key-string (if (numberp last-command-char) - (char-to-string last-command-char))) - (key-num (cond ((numberp last-command-char) last-command-char) + (let* ((key-string (if (numberp last-command-event) + (char-to-string last-command-event))) + (key-num (cond ((numberp last-command-event) last-command-event) ;; for XEmacs character type: ((and (fboundp 'characterp) - (apply 'characterp (list last-command-char))) - (apply 'char-to-int (list last-command-char))) + (apply 'characterp (list last-command-event))) + (apply 'char-to-int (list last-command-event))) (t 0))) mapped-binding) -- cgit v1.2.1