;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 124.125
;;; Reason:
;;;  Prefixing ZMacs' Tags Search with an augmented numeric argument (e.g.
;;;  Control-U) now causes the "new" search to resume at the "old" search
;;;  point.  This is handy, for example, if Control-. has been redefined by a
;;;  different command, and you want to pick up a tags search where you left
;;;  off.
;;;  
;;;  This is not a random enhancement I just stuck in after the code freeze -- this
;;;  is a crucial facility I need to edit callers and Tags Search at the same time while
;;;  I fix problems in system 125.
;;; Written 5-Jul-88 20:46:50 by keith at site Gigamos Cambridge
;;; while running on Breaking Glass from band 1
;;; with Experimental System 124.124, Experimental Local-File 74.3, Experimental File-Server 23.1, 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; SECTIO.LISP#311 at 5-Jul-88 20:46:54
#8R ZWEI#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "ZWEI")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: ZWEI; SECTIO  "

(DEFCOM COM-TAGS-SEARCH "Search for the specified string within files of the tags table.
  By default, start the search from the beginning of the tags table files sequence.
  With a numeric argument (other than 1), start this search from the current search point. " ()
  (LET ((*MINI-BUFFER-DEFAULT-STRING* *ZMACS-TAGS-SEARCH-KEY-STRING*))
    (MULTIPLE-VALUE-SETQ (*ZMACS-TAGS-SEARCH-FUNCTION* *ZMACS-TAGS-SEARCH-KEY*)
      (read-function-name-or-string  NIL "Tags search:" *SEARCH-MINI-BUFFER-COMTAB*)))
  (SETQ *ZMACS-TAGS-SEARCH-KEY-STRING*
	(STRING-INTERVAL (WINDOW-INTERVAL (GET-SEARCH-MINI-BUFFER-WINDOW))))
  (COMMAND-STORE 'COM-TAGS-SEARCH-NEXT-OCCURRENCE #/c-. *ZMACS-COMTAB*)
  (MUST-REDISPLAY *WINDOW* DIS-TEXT)
  (TAGS-SEARCH-NEXT-OCCURRENCE (equal *numeric-arg* 1)))

))