diff options
author | Glenn Morris <rgm@gnu.org> | 2009-01-09 03:57:12 +0000 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2009-01-09 03:57:12 +0000 |
commit | e93c003eb15f85f744a39c28a8fb43b8c6da9904 (patch) | |
tree | 3a9d6acabbc4bd35bdb1b1680eb16e12b4761651 /lisp/calc/calc-units.el | |
parent | 4b09796d423bb241d597f147ce0d53567ce10b3f (diff) | |
download | emacs-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.el | 2 |
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))) |