;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 124.51
;;; Reason:
;;;  When printing buffers or regions from ZWEI, don't print "-- Done" in the typeout
;;;  window -- put it in the typein window.
;;; Written 13-Jun-88 16:25:33 by pld (Peter L. DeWolf) at site Gigamos Cambridge
;;; while running on Azathoth from band 1
;;; with Experimental System 124.49, Experimental Local-File 74.1, Experimental File-Server 23.1, Experimental Unix-Interface 12.0, Experimental ZMail 72.0, Experimental Tape 23.6, Experimental Lambda-Diag 16.1, microcode 1758, SDU Boot Tape 3.14, SDU ROM 8.



; From modified file DJ: L.ZWEI; ZMACS.LISP#573 at 13-Jun-88 16:26:40
#8R ZWEI#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "ZWEI")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: ZWEI; ZMACS  "

(DEFCOM COM-PRINT-REGION "Prints the region on the default hardcopy device." ()
  (REGION (BP0 BP1)
    (LET* ((INTERVAL (MAKE-INTERVAL BP0 BP1))
	   (FONTS (SEND *INTERVAL* :GET-ATTRIBUTE :FONTS))
	   (STREAM (IF (ATOM FONTS)
		       (ZWEI:INTERVAL-STREAM INTERVAL)
		     (ZWEI:INTERVAL-STREAM INTERVAL NIL NIL T))))
      (SI:HARDCOPY-STREAM STREAM
			  :FILE-NAME
			  (FORMAT:OUTPUT NIL
			    "ZWEI Buffer "
			    ;; Print the pathname, or else the buffer name.
			    (princ (or (safe-get-zwei-buffer-instance-variable *interval* 'zwei:pathname)
				       (safe-get-zwei-buffer-instance-variable *interval* 'zwei:name)
				       "Chunk"))
			  ;; Print last visited version number, if one is recorded.
			    (when
			      (and (safe-get-zwei-buffer-instance-variable *interval* 'zwei:file-id)
				   (TYPEP (CAR-SAFE (BUFFER-FILE-ID *INTERVAL*)) 'FS:PATHNAME))
			      (FORMAT *query-io* " (~D)"
				      (SEND (CAR (BUFFER-FILE-ID *INTERVAL*)) :VERSION)))
			    :TV-FONTS (IF (ATOM FONTS) (LIST FONTS) FONTS)))))
  (FORMAT *query-io* " -- Done.")
  DIS-NONE)

))

; From modified file DJ: L.ZWEI; ZMACS.LISP#573 at 13-Jun-88 16:27:11
#8R ZWEI#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "ZWEI")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: ZWEI; ZMACS  "

(DEFUN PRINT-BUFFER-1 (INTERVAL &OPTIONAL (*STANDARD-OUTPUT* *QUERY-IO*))
  "Print INTERVAL's contents on default printer.
The value supplied for *STANDARD-OUTPUT* is used for printing
notes about the progress of the printing."
  (LET* ((FONTS (SEND INTERVAL :GET-ATTRIBUTE ':FONTS))
	 (STREAM (IF (ATOM FONTS)
		     (ZWEI:INTERVAL-STREAM INTERVAL)
		   (ZWEI:INTERVAL-STREAM INTERVAL NIL NIL T))))
    (SI:HARDCOPY-STREAM STREAM
			:FILE-NAME
			(FORMAT:OUTPUT NIL
			  "ZWEI Buffer "
			  ;; Print the pathname, or else the buffer name.
			  (princ (or (safe-get-zwei-buffer-instance-variable *interval* 'zwei:pathname)
				     (safe-get-zwei-buffer-instance-variable *interval* 'zwei:name)
				     " "))
			  ;; Print last visited version number, if one is recorded.
			  (when
			    (and (safe-get-zwei-buffer-instance-variable *interval* 'zwei:file-id)
				 (TYPEP (CAR-SAFE (BUFFER-FILE-ID INTERVAL)) 'FS:PATHNAME))
			    (FORMAT *query-io* " (~D)"
				    (SEND (CAR (BUFFER-FILE-ID INTERVAL)) :VERSION))))))
  (FORMAT *query-io* " -- Done.")
  T)						;If called from mouse click, preserve the buffer list on the screen.

))