(FILECREATED "18-Mar-86 18:03:05" ("compiled on " {ERIS}GREGCO>LAFITEHIGHLIGHT.;5) "20-Feb-86 23:08:17" recompiled changes: HIGHLIGHT in "Xerox Lisp 20-Feb-86 ..." dated "20-Feb-86 23:44:46") (FILECREATED "18-Mar-86 18:02:53" {ERIS}GREGCO>LAFITEHIGHLIGHT.;5 1666 changes to: (FNS HIGHLIGHT) (ADVICE \LAFITE.DO.DISPLAY) (VARS LAFITEHIGHLIGHTCOMS) previous date: "11-Mar-86 12:32:26" {ERIS}GREGCO>LAFITEHIGHLIGHT.;3) HIGHLIGHT D1 (P 12Q P P 11Q CHOICE P 10Q K P 2 RIGHT P 1 LEFT P 0 TXT I 0 W F 13Q HIGHLIGHT.KEYS F 14Q POS F 15Q HIGHLIGHT.LOOKS) t @ 1WQ Lµ M cd°Q_¿HOk _3µ‹_¿Nµ Oh^½L\°ÒO&¾°÷d HO ¿HWOj»H l ð¤KkÔ°öKkØ µÙHkj (161Q TEDIT.SETSEL 146Q TEDIT.LOOKS 115Q SETFILEPTR 44Q TEDIT.FIND 24Q SORT 3 TEXTSTREAM) NIL () (PRETTYCOMPRINT LAFITEHIGHLIGHTCOMS) (RPAQQ LAFITEHIGHLIGHTCOMS ((INITVARS (HIGHLIGHT.LOOKS (QUOTE (WEIGHT BOLD))) (HIGHLIGHT.KEYS (QUOTE ( "From:" "To:" "Subject:")))) (FNS HIGHLIGHT) (ADVISE \LAFITE.DO.DISPLAY))) (RPAQ? HIGHLIGHT.LOOKS (QUOTE (WEIGHT BOLD))) (RPAQ? HIGHLIGHT.KEYS (QUOTE ("From:" "To:" "Subject:"))) (PUTPROPS \LAFITE.DO.DISPLAY READVICE (NIL (AFTER NIL (HIGHLIGHT !VALUE)))) (READVISE \LAFITE.DO.DISPLAY) NIL