diff options
| author | Glenn Morris <rgm@gnu.org> | 2009-01-09 04:44:15 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2009-01-09 04:44:15 +0000 |
| commit | 8989a9203f73473569ddf83e505a846609def407 (patch) | |
| tree | 2dcc35b588e98388ef66ef39157e9d17290df217 /lisp/allout.el | |
| parent | a4d9b7bca3dc69efe89eecbd81ed96859f7cd818 (diff) | |
| download | emacs-8989a9203f73473569ddf83e505a846609def407.tar.gz | |
Replace last-command-char with last-command-event.
Diffstat (limited to 'lisp/allout.el')
| -rw-r--r-- | lisp/allout.el | 10 |
1 files changed, 5 insertions, 5 deletions
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) |