*** empty log message ***

original commit: f06328300fb76a609aa492fdd530e359937a6cd6
tokens
Scott Owens 24 years ago
parent 6f0559e4d4
commit e09fd37907

@ -1,4 +0,0 @@
(module info (lib "infotab.ss" "setup")
(define name "MzLib"))

@ -154,21 +154,17 @@
(cond (cond
((= 0 num-to-add) (values from to)) ((= 0 num-to-add) (values from to))
(else (else
(cond (if (eq? #\newline (car from))
((eq? #\newline (car from)) (begin
(set-lex-buffer-line! (set-lex-buffer-line!
lb lb
(sub1 (lex-buffer-line lb))) (sub1 (lex-buffer-line lb)))
(set-lex-buffer-offset! (set-lex-buffer-offset!
lb lb
(car (lex-buffer-line-lengths lb))) (car (lex-buffer-line-lengths lb)))
(set-lex-buffer-line-lengths! (set-lex-buffer-line-lengths!
lb lb
(cdr (lex-buffer-line-lengths lb)))) (cdr (lex-buffer-line-lengths lb)))))
(else
(set-lex-buffer-offset!
lb
(sub1 (lex-buffer-offset lb)))))
(switch-buffers (cdr from) (switch-buffers (cdr from)
(cons (car from) to) (cons (car from) to)
(sub1 num-to-add))))))) (sub1 num-to-add)))))))

Loading…
Cancel
Save