diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2011-04-29 01:08:37 +0200 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2011-04-29 01:08:37 +0200 |
| commit | 6e087a44c58220e2c72b55c52bc01b2f8ded2c82 (patch) | |
| tree | 35385d67c57d93ebd77f97b1c5c1d4d2a96e35d1 /lisp/calc/calccomp.el | |
| parent | 50f845101db138cb6541be4bac9d0b31b39db033 (diff) | |
| download | emacs-6e087a44c58220e2c72b55c52bc01b2f8ded2c82.tar.gz emacs-6e087a44c58220e2c72b55c52bc01b2f8ded2c82.tar.bz2 emacs-6e087a44c58220e2c72b55c52bc01b2f8ded2c82.zip | |
lisp/calc/calccomp.el (math-comp-to-string-flat-term): Simplify.
Diffstat (limited to 'lisp/calc/calccomp.el')
| -rw-r--r-- | lisp/calc/calccomp.el | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/lisp/calc/calccomp.el b/lisp/calc/calccomp.el index fa910ce2568..906517ac503 100644 --- a/lisp/calc/calccomp.el +++ b/lisp/calc/calccomp.el @@ -1282,12 +1282,7 @@ (let ((prefix "") mrg wid) (setq mrg (aref math-comp-buf-margin i)) (if (> mrg 12) ; indenting too far, go back to far left - (let ((j i) (new (if calc-line-numbering 5 1))) - '(while (<= j math-comp-level) - (aset math-comp-buf-margin j - (+ (aref math-comp-buf-margin j) (- new mrg))) - (setq j (1+ j))) - (setq mrg new))) + (setq mrg (if calc-line-numbering 5 1))) (setq wid (+ (length str) math-comp-margin)) (and (> (length str) 0) (= (aref str 0) ? ) (> (length math-comp-buf) 0) |