diff options
| author | Glenn Morris <[email protected]> | 2009-01-09 03:57:12 +0000 |
|---|---|---|
| committer | Glenn Morris <[email protected]> | 2009-01-09 03:57:12 +0000 |
| commit | e93c003eb15f85f744a39c28a8fb43b8c6da9904 (patch) | |
| tree | 3a9d6acabbc4bd35bdb1b1680eb16e12b4761651 /lisp/calc/calc-aent.el | |
| parent | 4b09796d423bb241d597f147ce0d53567ce10b3f (diff) | |
Replace last-command-char with last-command-event.
Diffstat (limited to 'lisp/calc/calc-aent.el')
| -rw-r--r-- | lisp/calc/calc-aent.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/calc/calc-aent.el b/lisp/calc/calc-aent.el index bccc873e47..22afd43a34 100644 --- a/lisp/calc/calc-aent.el +++ b/lisp/calc/calc-aent.el @@ -109,7 +109,7 @@ (setq buf long)))) (calc-handle-whys) (message "Result: %s" buf))) - (if (eq last-command-char 10) + (if (eq last-command-event 10) (insert shortbuf) (kill-new shortbuf))))) @@ -279,7 +279,7 @@ The value t means abort and give an error message.") (calc-wrapper (let ((calc-language (if prefix nil calc-language)) (math-expr-opers (if prefix (math-standard-ops) (math-expr-ops)))) - (calc-alg-entry (and auto (char-to-string last-command-char)))))) + (calc-alg-entry (and auto (char-to-string last-command-event)))))) (defvar calc-alg-entry-history nil "History for algebraic entry.") @@ -296,7 +296,7 @@ The value t means abort and give an error message.") (progn (require 'calc-ext) (calc-alg-edit alg-exp)) - (let* ((calc-simplify-mode (if (eq last-command-char ?\C-j) + (let* ((calc-simplify-mode (if (eq last-command-event ?\C-j) 'none calc-simplify-mode)) (nvals (mapcar 'calc-normalize alg-exp))) @@ -468,12 +468,12 @@ The value t means abort and give an error message.") ;;;###autoload (defun calc-alg-digit-entry () (calc-alg-entry - (cond ((eq last-command-char ?e) + (cond ((eq last-command-event ?e) (if (> calc-number-radix 14) (format "%d.^" calc-number-radix) "1e")) - ((eq last-command-char ?#) (format "%d#" calc-number-radix)) - ((eq last-command-char ?_) "-") - ((eq last-command-char ?@) "0@ ") - (t (char-to-string last-command-char))))) + ((eq last-command-event ?#) (format "%d#" calc-number-radix)) + ((eq last-command-event ?_) "-") + ((eq last-command-event ?@) "0@ ") + (t (char-to-string last-command-event))))) ;; The variable calc-digit-value is initially declared in calc.el, ;; but can be set by calcDigit-algebraic and calcDigit-edit. |