Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!uwm.edu!linac!att!ucbvax!THUMPER.BELLCORE.COM!rdh
From: rdh@THUMPER.BELLCORE.COM (Ralph Hill)
Newsgroups: comp.soft-sys.andrew
Subject: Ooops!  ltext improvements
Message-ID: <cbubp320M2a902OiQx@thumper.bellcore.com>
Date: 22 Mar 91 21:55:15 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The Internet
Lines: 25

Previous message contains the wrong diff....

15d14
< #include <environ.ih>
769c768,775
<     char *t, *t2, *s = environ_GetProfile("ltextindents");
---
>     addindent("defun", 2);
>     addindent("defmacro", 2);
>     addindent("defconstant", 1);
>     addindent("defstruct", 1);
>     addindent("let", 1);
>     addindent("let*", 1);
>     addindent("do", 2);
>     addindent("if", 1);
771,778d776
<     if (!s) s =
"defun:2,defmacro:2,defconstant:1,defstruct:1,let:1,let*:1,do:2,if:1";
<     while (isspace(*s)) ++s;
<     while (t = s) {
<         if (s = index(t, ',')) *s++ = NULL;
<         if (t2=index(t, ':')) *t2++=NULL;
<         addindent(t, t2 ? atoi(t2) : 1);
<     }
<