diff options
| author | Eli Barzilay <eli@barzilay.org> | 2014-06-24 03:55:36 -0400 |
|---|---|---|
| committer | Eli Barzilay <eli@barzilay.org> | 2014-06-24 03:55:36 -0400 |
| commit | 7967f7d1d44a1c8e1b077fa186d43a86c72f5d95 (patch) | |
| tree | f89c003523671413aeeef406c7f82be17e874940 /lisp/calculator.el | |
| parent | b6266364bd99d506753fc3b78dda69de23bdc5d6 (diff) | |
| download | emacs-7967f7d1d44a1c8e1b077fa186d43a86c72f5d95.tar.gz | |
lisp/calculator.el (calculator-last-input): drop 'ascii-character property
lookup.
etc/NEWS: calculator.el user-visible changes.
Diffstat (limited to 'lisp/calculator.el')
| -rw-r--r-- | lisp/calculator.el | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/lisp/calculator.el b/lisp/calculator.el index 9ffa6b1a64b..ad7a7f4c92a 100644 --- a/lisp/calculator.el +++ b/lisp/calculator.el @@ -1217,13 +1217,11 @@ Use KEYS if given, otherwise use `this-command-keys'." inp ;; Translates kp-x to x and [tries to] create a string to lookup ;; operators; assume all symbols are translatable via - ;; `function-key-map' or with an 'ascii-character property. This - ;; is needed because we have key bindings for kp-* (which might be - ;; the wrong thing to do) so they don't get translated in - ;; `this-command-keys'. + ;; `function-key-map'. This is needed because we have key + ;; bindings for kp-* (which might be the wrong thing to do) so + ;; they don't get translated in `this-command-keys'. (concat (mapcar (lambda (k) - (if (numberp k) k (or (get k 'ascii-character) - (error "??bad key??")))) + (if (numberp k) k (error "??bad key?? (%S)" k))) (or (lookup-key function-key-map inp) inp)))))) (defun calculator-clear-fragile (&optional op) |