[Emacs-diffs] trunk r117387: lisp/calculator.el (calculator-last-input): drop 'ascii-character property

[Eli Barzilay]

------------------------------------------------------------
revno: 117387
revision-id: address@hidden
parent: address@hidden
committer: Eli Barzilay <address@hidden>
branch nick: trunk
timestamp: Tue 2014-06-24 03:55:36 -0400
message:
  lisp/calculator.el (calculator-last-input): drop 'ascii-character property
  lookup.
  etc/NEWS: calculator.el user-visible changes.
modified:
  etc/ChangeLog                  changelog-20091113204419-o5vbwnq5f7feedwu-1485
  etc/NEWS                       news-20100311060928-aoit31wvzf25yr1z-1
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/calculator.el             
calculator.el-20091113204419-o5vbwnq5f7feedwu-1770

=== modified file 'etc/ChangeLog'
--- a/etc/ChangeLog     2014-06-15 20:49:10 +0000
+++ b/etc/ChangeLog     2014-06-24 07:55:36 +0000
@@ -1,3 +1,7 @@
+2014-06-24  Eli Barzilay  <address@hidden>
+
+       * NEWS: calculator.el user-visible changes.
+
 2014-06-15  Michael Albinus  <address@hidden>
 
        * NEWS: New Tramp method "nc".

=== modified file 'etc/NEWS'
--- a/etc/NEWS  2014-06-19 14:58:57 +0000
+++ b/etc/NEWS  2014-06-24 07:55:36 +0000
@@ -113,6 +113,10 @@
 
 *** 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
 
 ---

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-06-24 07:15:26 +0000
+++ b/lisp/ChangeLog    2014-06-24 07:55:36 +0000
@@ -1,3 +1,8 @@
+2014-06-24  Eli Barzilay  <address@hidden>
+
+       * calculator.el (calculator-last-input): drop 'ascii-character property
+       lookup.
+
 2014-06-24  Leo Liu  <address@hidden>
 
        * align.el (align-adjust-col-for-rule): Unbreak due to defaulting

=== modified file 'lisp/calculator.el'
--- a/lisp/calculator.el        2014-06-23 05:14:23 +0000
+++ b/lisp/calculator.el        2014-06-24 07:55:36 +0000
@@ -1217,13 +1217,11 @@
       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)