;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 124.128
;;; Reason:
;;;  By popular demand, Jim's fix to ZMacs' COM-R-DIRED.
;;;  
;;;  The key sequence Control-1 Control-X D should "show only files with the
;;;  same first name as the current file".  Now that works as advertised. 
;;; Written 6-Jul-88 12:15:22 by keith at site Gigamos Cambridge
;;; while running on Breaking Glass from band 1
;;; with Experimental System 124.127, 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 file DJ: L.ZWEI; DIRED.LISP#331 at 6-Jul-88 12:15:23
#8R ZWEI#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "ZWEI")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: ZWEI; DIRED  "

(DEFCOM COM-R-DIRED "Edit directory for current file.
With no argument, edits the directory containing the file in the current buffer.
With an argument of 1, shows only files with the same first name as the current file.
With an argument of 4, asks for a directory name.
For documentation on the Dired commands, enter Dired and type question-mark." ()
  (LET ((PATHNAME (SEND (DEFAULT-PATHNAME) :NEW-PATHNAME :TYPE :WILD
							 :VERSION :WILD)))
    (KILL-NEW-BUFFER-ON-ABORT (*INTERVAL*)
      (COND ((NOT *NUMERIC-ARG-P*)
	     (DIRECTORY-EDIT (SEND PATHNAME :NEW-NAME :WILD)))
	    ((= *NUMERIC-ARG* 1)
	     (DIRECTORY-EDIT PATHNAME))
	    (T (let ((*numeric-arg-p* nil))
		 (COM-DIRED)))))))

))