diff options
| author | Eli Barzilay <eli@barzilay.org> | 2015-01-25 22:42:01 -0500 |
|---|---|---|
| committer | Eli Barzilay <eli@barzilay.org> | 2015-01-25 22:42:01 -0500 |
| commit | 44df0a8f506db385473ed36c2a5fa26e06e7788d (patch) | |
| tree | fdb594ecc6ce9e79568e238d4e3e178e000f17ba /lisp | |
| parent | c3d4505b5a8bf55044a1f40da5018e83a43157ff (diff) | |
| download | emacs-44df0a8f506db385473ed36c2a5fa26e06e7788d.tar.gz | |
lisp/calculator.el (calculator-update-display): Bug fix & improvement.
Avoid a crash when the daved ptr is at the end of the list (= when it's
before the first one). Also use `eq' to compare the value so the saved
list indicator appears when a value was retrieved from the list rather
than an equal result is shown.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/calculator.el | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/lisp/calculator.el b/lisp/calculator.el index 7d7c73ae327..0aef07b1750 100644 --- a/lisp/calculator.el +++ b/lisp/calculator.el @@ -312,8 +312,8 @@ user-defined operators, use `calculator-user-operators' instead.") It it possible have a unary prefix version of a binary operator if it comes later in this list. If the list begins with the symbol 'nobind, -then no key binding will take place -- this is only useful for predefined -keys. +then no key binding will take place -- this is only useful for +predefined keys. Use `calculator-user-operators' to add operators to this list, see its documentation for an example.") @@ -1124,9 +1124,15 @@ If optional argument FORCE is non-nil, don't use the cached string." " " (and calculator-display-fragile calculator-saved-list - (= (car calculator-stack) - (nth calculator-saved-ptr - calculator-saved-list)) + ;; Hack: use `eq' to compare the number: it's a + ;; flonum, so `eq' means that its the actual + ;; number rather than a computation that had an + ;; equal result (eg, enter 1,3,2, use "v" to see + ;; the average -- it now shows "2" instead of + ;; "2 [3]"). + (eq (car calculator-stack) + (nth calculator-saved-ptr + calculator-saved-list)) (if (= 0 calculator-saved-ptr) (format "[%s]" (length calculator-saved-list)) (format "[%s/%s]" |