Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
7967f7d1
Commit
7967f7d1
authored
Jun 24, 2014
by
Eli Barzilay
Browse files
lisp/calculator.el (calculator-last-input): drop 'ascii-character property
lookup. etc/NEWS: calculator.el user-visible changes.
parent
b6266364
Changes
4
Hide whitespace changes
Inline
Side-by-side
Showing
4 changed files
with
17 additions
and
6 deletions
+17
-6
etc/ChangeLog
etc/ChangeLog
+4
-0
etc/NEWS
etc/NEWS
+4
-0
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/calculator.el
lisp/calculator.el
+4
-6
No files found.
etc/ChangeLog
View file @
7967f7d1
2014-06-24 Eli Barzilay <eli@barzilay.org>
* NEWS: calculator.el user-visible changes.
2014-06-15 Michael Albinus <michael.albinus@gmx.de>
* NEWS: New Tramp method "nc".
...
...
etc/NEWS
View file @
7967f7d1
...
...
@@ -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
.
**
Calculator
:
decimal
display
mode
uses
","
groups
,
so
it
's more
fitting for use in money calculations; factorial works with
non-integer inputs.
** Obsolete packages
---
...
...
lisp/ChangeLog
View file @
7967f7d1
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>
* align.el (align-adjust-col-for-rule): Unbreak due to defaulting
...
...
lisp/calculator.el
View file @
7967f7d1
...
...
@@ -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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment