/[emacs]/emacs/lisp/calc/calc.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.61 by jpb, Mon May 30 21:03:51 2005 UTC revision 1.62 by lektu, Mon Jul 4 02:39:37 2005 UTC
# Line 207  Line 207 
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)
# Line 3026  See calc-keypad for details." Line 3026  See calc-keypad for details."
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
# Line 3044  See calc-keypad for details." Line 3044  See calc-keypad for details."
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)

Legend:
Removed from v.1.61  
changed lines
  Added in v.1.62

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26