;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 124.58
;;; Reason:
;;;  ZWEI command M-X List Tag Tables now also tells you which is currently selected.
;;;  The new command M-X Current Tag Table simply prints the name in the typein area.
;;; Written 14-Jun-88 15:32:07 by pld (Peter L. DeWolf) at site Gigamos Cambridge
;;; while running on Azathoth from band 1
;;; with Experimental System 124.56, Experimental Local-File 74.2, 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; SECTIO.LISP#301 at 14-Jun-88 15:33:41
#8R ZWEI#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "ZWEI")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: ZWEI; SECTIO  "

(DEFCOM COM-LIST-TAG-TABLES "List the names of all the tag table files read in" ()
  (DOLIST (TAG-TABLE *ZMACS-TAG-TABLE-ALIST*)
    (FORMAT T "~&~4TFiles in tag table ~A~@[ (current tag table)~]:~%"
	    (CAR TAG-TABLE)
	    (eq (cdr tag-table) *zmacs-current-tag-table*))
    (SEND *STANDARD-OUTPUT* :ITEM-LIST 'FILE
	  (SEND (CDR TAG-TABLE) :GET 'ZMACS-TAG-TABLE-FILE-SYMBOLS)))
  (FORMAT T "~&Done.~%")
  DIS-NONE)

(defcom com-current-tag-table "Give the name of the current tag table" ()
  (if *zmacs-current-tag-table*
      (format *query-io* "~A" (send *zmacs-current-tag-table* :name))
    (format *query-io* "No current tag table"))
  dis-none)

(set-comtab *zmacs-comtab* nil (make-command-alist '(com-current-tag-table)))
))