Commit 6e087a44 authored by Juanma Barranquero's avatar Juanma Barranquero

lisp/calc/calccomp.el (math-comp-to-string-flat-term): Simplify.

parent 50f84510
2011-04-28 Juanma Barranquero <lekktu@gmail.com>
* calc/calccomp.el (math-comp-to-string-flat-term): Simplify by
removing code that has been dead since 1991 or so.
* startup.el (command-line): When warning about "_emacs", use a
delayed warning to allow the user to filter it out.
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment