[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Quoted while loop on calccomp.el

From: Juanma Barranquero
Subject: Quoted while loop on calccomp.el
Date: Sat, 16 Apr 2011 04:30:51 +0200

In this bit from lisp/calc/calccomp.el, at lines 1284-1290:

                   (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)))

it is the '(while stuff an ugly, but intended way to comment out the
while loop, or a mistake? Seems like the the latter, but if so, it's
been there since the initial import of Calc 2.02f on revno:40770
(2001-11-06), which makes that code suspiciously unneeded...


reply via email to

[Prev in Thread] Current Thread [Next in Thread]