Commit 7967f7d1 authored by Eli Barzilay's avatar Eli Barzilay
Browse files

lisp/calculator.el (calculator-last-input): drop 'ascii-character property

lookup.
etc/NEWS: calculator.el user-visible changes.
parent b6266364
2014-06-24 Eli Barzilay <eli@barzilay.org>
* NEWS: calculator.el user-visible changes.
2014-06-15 Michael Albinus <michael.albinus@gmx.de> 2014-06-15 Michael Albinus <michael.albinus@gmx.de>
* NEWS: New Tramp method "nc". * NEWS: New Tramp method "nc".
......
...@@ -113,6 +113,10 @@ protocols as well as for "telnet" and "ftp" are passed to Tramp. ...@@ -113,6 +113,10 @@ protocols as well as for "telnet" and "ftp" are passed to Tramp.
*** New connection method "nc", which allows to access dumb busyboxes. *** New connection method "nc", which allows to access dumb busyboxes.
** Calculator: decimal display mode uses "," groups, so it's more
fitting for use in money calculations; factorial works with
non-integer inputs.
** Obsolete packages ** Obsolete packages
--- ---
......
2014-06-24 Eli Barzilay <eli@barzilay.org>
* calculator.el (calculator-last-input): drop 'ascii-character property
lookup.
2014-06-24 Leo Liu <sdl.web@gmail.com> 2014-06-24 Leo Liu <sdl.web@gmail.com>
   
* align.el (align-adjust-col-for-rule): Unbreak due to defaulting * align.el (align-adjust-col-for-rule): Unbreak due to defaulting
......
...@@ -1217,13 +1217,11 @@ Use KEYS if given, otherwise use `this-command-keys'." ...@@ -1217,13 +1217,11 @@ Use KEYS if given, otherwise use `this-command-keys'."
inp inp
;; Translates kp-x to x and [tries to] create a string to lookup ;; Translates kp-x to x and [tries to] create a string to lookup
;; operators; assume all symbols are translatable via ;; operators; assume all symbols are translatable via
;; `function-key-map' or with an 'ascii-character property. This ;; `function-key-map'. This is needed because we have key
;; is needed because we have key bindings for kp-* (which might be ;; bindings for kp-* (which might be the wrong thing to do) so
;; the wrong thing to do) so they don't get translated in ;; they don't get translated in `this-command-keys'.
;; `this-command-keys'.
(concat (mapcar (lambda (k) (concat (mapcar (lambda (k)
(if (numberp k) k (or (get k 'ascii-character) (if (numberp k) k (error "??bad key?? (%S)" k)))
(error "??bad key??"))))
(or (lookup-key function-key-map inp) inp)))))) (or (lookup-key function-key-map inp) inp))))))
(defun calculator-clear-fragile (&optional op) (defun calculator-clear-fragile (&optional op)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment