207 |
(require 'calc-macs) |
(require 'calc-macs) |
208 |
|
|
209 |
(defgroup calc nil |
(defgroup calc nil |
210 |
"GNU Calc" |
"GNU Calc." |
211 |
:prefix "calc-" |
:prefix "calc-" |
212 |
:tag "Calc" |
:tag "Calc" |
213 |
:group 'applications) |
:group 'applications) |
3026 |
(setq w (cdr off) |
(setq w (cdr off) |
3027 |
off (car off)) |
off (car off)) |
3028 |
(when (> off 0) |
(when (> off 0) |
3029 |
(setq c (math-comp-concat (make-string off ? ) c))) |
(setq c (math-comp-concat (make-string off ?\s) c))) |
3030 |
(or (equal calc-left-label "") |
(or (equal calc-left-label "") |
3031 |
(setq c (math-comp-concat (if (eq a 'top-of-stack) |
(setq c (math-comp-concat (if (eq a 'top-of-stack) |
3032 |
(make-string (length calc-left-label) ? ) |
(make-string (length calc-left-label) ?\s) |
3033 |
calc-left-label) |
calc-left-label) |
3034 |
c))) |
c))) |
3035 |
(when calc-line-numbering |
(when calc-line-numbering |
3044 |
(require 'calc-ext) |
(require 'calc-ext) |
3045 |
(setq c (list 'horiz c |
(setq c (list 'horiz c |
3046 |
(make-string (max (- w (math-comp-width c) |
(make-string (max (- w (math-comp-width c) |
3047 |
(length calc-right-label)) 0) ? ) |
(length calc-right-label)) 0) ?\s) |
3048 |
'(break -1) |
'(break -1) |
3049 |
calc-right-label))) |
calc-right-label))) |
3050 |
(setq s (if (stringp c) |
(setq s (if (stringp c) |