;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 124.119
;;; Reason:
;;;  The handling of numeric arguments in Zwei's COM-SET-POP-MARK (ZMacs'
;;;  Control-Space) was incorrectly coded.  Now it works as advertised.
;;; Written 28-Jun-88 17:13:37 by keith (Keith Corbett) at site Gigamos Cambridge
;;; while running on Breaking Glass from band 1
;;; with Experimental System 124.115, Experimental Local-File 74.3, Experimental File-Server 23.1, Experimental Unix-Interface 12.0, Experimental ZMail 72.1, Experimental Tape 23.6, Experimental Lambda-Diag 16.2, Tiger 28.0, microcode 1761, SDU Boot Tape 3.14, SDU ROM 103, Beta 3 plus patches.



; From modified file DJ: L.ZWEI; COMA.LISP#112 at 28-Jun-88 17:13:37
#8R ZWEI#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "ZWEI")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: ZWEI; COMA  "

(DEFCOM COM-SET-POP-MARK "Sets or pops the mark.
With no Control-U's, sets the mark at the point, and pushes point onto the point pdl.
With one Control-U, pops the point pdl and moves to last point.
With two Control-U's, pops the point pdl but does not move." (KM)
  (COND ((OR (NEQ *NUMERIC-ARG-P* ':CONTROL-U)
	     (< *NUMERIC-ARG* 4))
	 (POINT-PDL-PUSH (POINT) *WINDOW* NIL T)
	 (MOVE-BP (MARK) (POINT))
	 (SETF (WINDOW-MARK-P *WINDOW*) T)
	 DIS-BPS)
	((< *NUMERIC-ARG* 16.)
	 (MULTIPLE-VALUE-BIND (BP PLINE)
	     (POINT-PDL-POP *WINDOW*)
	   (POINT-PDL-MOVE BP PLINE))
	 DIS-BPS)
	(T
	 (POINT-PDL-POP *WINDOW*)
	 DIS-NONE)))

))