Mercurial > emacs
comparison lisp/calc/calc.el @ 58477:f7508bb6a284
(calc-embedded-active): Removed unnecessary declaration.
(calc-show-banner): Removed redundant declaration.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Wed, 24 Nov 2004 21:43:36 +0000 |
| parents | 4a905282edbb |
| children | bba6d2de0a93 |
comparison
equal
deleted
inserted
replaced
| 58476:a63fcb725e21 | 58477:f7508bb6a284 |
|---|---|
| 247 | 247 |
| 248 (defvar calc-stack '((top-of-stack 1 nil)) | 248 (defvar calc-stack '((top-of-stack 1 nil)) |
| 249 "Calculator stack. | 249 "Calculator stack. |
| 250 Entries are 3-lists: Formula, Height (in lines), Selection (or nil).") | 250 Entries are 3-lists: Formula, Height (in lines), Selection (or nil).") |
| 251 | 251 |
| 252 (defvar calc-show-banner t | |
| 253 "*If non-nil, show a friendly greeting above the stack.") | |
| 254 | |
| 255 (defvar calc-stack-top 1 | 252 (defvar calc-stack-top 1 |
| 256 "Index into `calc-stack' of \"top\" of stack. | 253 "Index into `calc-stack' of \"top\" of stack. |
| 257 This is 1 unless `calc-truncate-stack' has been used.") | 254 This is 1 unless `calc-truncate-stack' has been used.") |
| 258 | 255 |
| 259 (defvar calc-display-sci-high 0 | 256 (defvar calc-display-sci-high 0 |
| 587 | 584 |
| 588 (calc-graph-default-resolution-3d 5) | 585 (calc-graph-default-resolution-3d 5) |
| 589 | 586 |
| 590 (calc-invocation-macro nil) | 587 (calc-invocation-macro nil) |
| 591 | 588 |
| 592 (calc-show-banner t)) | 589 (calc-show-banner t |
| 590 "*If non-nil, show a friendly greeting above the stack.")) | |
| 593 "List of variables (and default values) used in customizing GNU Calc.") | 591 "List of variables (and default values) used in customizing GNU Calc.") |
| 594 | 592 |
| 595 (mapcar (function (lambda (v) | 593 (mapcar (function (lambda (v) |
| 596 (or (boundp (car v)) | 594 (or (boundp (car v)) |
| 597 (set (car v) (nth 1 v))) | 595 (set (car v) (nth 1 v))) |