summaryrefslogtreecommitdiff
path: root/lisp/calc/calc-units.el
diff options
context:
space:
mode:
authorGlenn Morris <rgm@gnu.org>2009-01-09 03:57:12 +0000
committerGlenn Morris <rgm@gnu.org>2009-01-09 03:57:12 +0000
commite93c003eb15f85f744a39c28a8fb43b8c6da9904 (patch)
tree3a9d6acabbc4bd35bdb1b1680eb16e12b4761651 /lisp/calc/calc-units.el
parent4b09796d423bb241d597f147ce0d53567ce10b3f (diff)
downloademacs-e93c003eb15f85f744a39c28a8fb43b8c6da9904.tar.gz
emacs-e93c003eb15f85f744a39c28a8fb43b8c6da9904.tar.bz2
emacs-e93c003eb15f85f744a39c28a8fb43b8c6da9904.zip
Replace last-command-char with last-command-event.
Diffstat (limited to 'lisp/calc/calc-units.el')
-rw-r--r--lisp/calc/calc-units.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/calc/calc-units.el b/lisp/calc/calc-units.el
index 1366d57adf3..5d16f84694a 100644
--- a/lisp/calc/calc-units.el
+++ b/lisp/calc/calc-units.el
@@ -349,7 +349,7 @@ Entries are (SYMBOL EXPR DOC-STRING TEMP-TYPE BASE-UNITS).")
(defun calc-quick-units ()
(interactive)
(calc-slow-wrapper
- (let* ((num (- last-command-char ?0))
+ (let* ((num (- last-command-event ?0))
(pos (if (= num 0) 10 num))
(units (calc-var-value 'var-Units))
(expr (calc-top-n 1)))