(FILECREATED "19-Dec-86 15:37:49" ("compiled on " {ERIS}KOTO>LISPUSERS>LAFITEHIGHLIGHT.;1) "18-Dec-86 11:42:37" "COMPILE-FILEd" in "Xerox Lisp 18-Dec-86 ..." dated "18-Dec-86 12:17:20") (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) (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:"))) HIGHLIGHT §D4 (P 10 P P 9 CHOICE P 8 K P 2 RIGHT P 1 LEFT P 0 TXT I 0 W F 11 HIGHLIGHT.KEYS F 12 POS F 13 HIGHLIGHT.LOOKS) t @ 1WQ Lµ M cd°Q_¿HOk _3µ‹_¿Nµ Oh^½L\°ÒO&¾°÷d HO ¿HWOj»H l ð¤KkÔ°öKkØ µÙHkj (113 TEDIT.SETSEL 102 TEDIT.LOOKS 77 SETFILEPTR 36 TEDIT.FIND 20 SORT 3 TEXTSTREAM) NIL () (PUTPROPS \LAFITE.DO.DISPLAY READVICE (NIL (AFTER NIL (HIGHLIGHT !VALUE)))) (READVISE \LAFITE.DO.DISPLAY) NIL