4 |
|
|
5 |
;; Author: Eli Barzilay <eli@barzilay.org> |
;; Author: Eli Barzilay <eli@barzilay.org> |
6 |
;; Keywords: tools, convenience |
;; Keywords: tools, convenience |
7 |
;; Time-stamp: <2001-10-11 16:18:29 eli> |
;; Time-stamp: <2003-01-22 17:35:34 jbarranquero> |
8 |
|
|
9 |
;; This file is part of GNU Emacs. |
;; This file is part of GNU Emacs. |
10 |
|
|
129 |
will be used with this character for a format string.") |
will be used with this character for a format string.") |
130 |
|
|
131 |
(defcustom calculator-displayers |
(defcustom calculator-displayers |
132 |
'(((std ?n) "Standard dislpay, decimal point or scientific") |
'(((std ?n) "Standard display, decimal point or scientific") |
133 |
(calculator-eng-display "Eng display") |
(calculator-eng-display "Eng display") |
134 |
((std ?f) "Standard display, decimal point") |
((std ?f) "Standard display, decimal point") |
135 |
((std ?e) "Standard dislpay, scientific") |
((std ?e) "Standard display, scientific") |
136 |
("%S" "Emacs printer")) |
("%S" "Emacs printer")) |
137 |
"*A list of displayers. |
"*A list of displayers. |
138 |
Each element is a list of a displayer and a description string. The |
Each element is a list of a displayer and a description string. The |
139 |
first element is the one which is curently used, this is for the display |
first element is the one which is currently used, this is for the display |
140 |
of result values not values in expressions. A displayer specification |
of result values not values in expressions. A displayer specification |
141 |
is the same as the values that can be stored in `calculator-displayer'. |
is the same as the values that can be stored in `calculator-displayer'. |
142 |
|
|
537 |
,@(mapcar (lambda (x) (nth 1 x)) radix-selectors) |
,@(mapcar (lambda (x) (nth 1 x)) radix-selectors) |
538 |
"---" |
"---" |
539 |
,@(mapcar (lambda (x) (nth 2 x)) radix-selectors))) |
,@(mapcar (lambda (x) (nth 2 x)) radix-selectors))) |
540 |
("Decimal Dislpay" |
("Decimal Display" |
541 |
,@(mapcar (lambda (d) |
,@(mapcar (lambda (d) |
542 |
(vector (cadr d) |
(vector (cadr d) |
543 |
;; Note: inserts actual object here |
;; Note: inserts actual object here |
721 |
(calculator))) |
(calculator))) |
722 |
|
|
723 |
;;;--------------------------------------------------------------------- |
;;;--------------------------------------------------------------------- |
724 |
;;; Operatos |
;;; Operators |
725 |
|
|
726 |
(defun calculator-op-arity (op) |
(defun calculator-op-arity (op) |
727 |
"Return OP's arity, 2, +1 or -1." |
"Return OP's arity, 2, +1 or -1." |