(FILECREATED "19-Dec-85 01:23:43" {QV}<LOVSTRAND>LISP>CONNTITLE.;5
 1311   

      changes to:  (VARS CONNTITLECOMS)

      previous date: "18-Dec-85 02:04:02" {QV}<LOVSTRAND>LISP>CONNTITLE.;3)


(* Copyright (c) 1985 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT CONNTITLECOMS)

(RPAQQ CONNTITLECOMS
 ((INITVARS (CONNTITLEWINDOW (OR (AND (BOUNDP (QUOTE \TopLevelTtyWindow))
							    \TopLevelTtyWindow)
						       (PROCESSPROP (QUOTE EXEC)
								    (QUOTE WINDOW))
						       (CAR (LAST (OPENWINDOWS)))))
				  (CONNTITLEPREFIX " -- Connected to ")
				  (CONNTITLESUFFIX ""))
			(ADVISE CNDIR)
			(P (CNDIR \CONNECTED.DIRECTORY))))

(RPAQ? CONNTITLEWINDOW
 (OR (AND (BOUNDP (QUOTE \TopLevelTtyWindow))
				  \TopLevelTtyWindow)
			     (PROCESSPROP (QUOTE EXEC)
					  (QUOTE WINDOW))
			     (CAR (LAST (OPENWINDOWS)))))

(RPAQ? CONNTITLEPREFIX
 " -- Connected to ")

(RPAQ? CONNTITLESUFFIX
 "")

(PUTPROPS CNDIR READVICE
 (NIL (AFTER NIL (RESHOWTITLE (CONCAT (WINDOWPROP CONNTITLEWINDOW
									    (QUOTE TITLE))
								(OR CONNTITLEPREFIX "")
								\CONNECTED.DIRECTORY
								(OR CONNTITLESUFFIX ""))
							CONNTITLEWINDOW T))))
(READVISE CNDIR)
(CNDIR \CONNECTED.DIRECTORY)
(PUTPROPS CONNTITLE COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP