Xref: utzoo gnu.emacs:2290 comp.emacs:7740
Path: utzoo!utgpu!jarvis.csri.toronto.edu!clyde.concordia.ca!uunet!samsung!munnari.oz.au!uhccux!lupton
From: lupton@uhccux.uhcc.hawaii.edu (Robert Lupton)
Newsgroups: gnu.emacs,comp.emacs
Subject: Re: Extension of compile.el to handle source in many directories
Keywords: gnu emacs compile.el
Message-ID: <6529@uhccux.uhcc.hawaii.edu>
Date: 9 Feb 90 18:22:39 GMT
References: <6456@uhccux.uhcc.hawaii.edu>
Reply-To: lupton@uhccux.uhcc.hawaii.edu (Robert Lupton)
Organization: University of Hawaii
Lines: 30


Hmm, there's a small bug in my extended compile.el. The code to
automatically use all subdirectories was only finding leaf directories,
here's a patch (i.e. apply my other stuff first, then this patch)

			Robert
			
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
*** compile.el.1	Fri Dec 15 11:46:07 1989
--- compile.el	Fri Feb  9 08:04:39 1990
***************
*** 364,371
  	       (file-directory-p (concat dir file)))
  	  (let* ( (dir-name (concat dir file))
  		  (subs (sub-dirs dir-name)) )
! 	    (setq dir-list (append dir-list
! 				   (if subs subs (list dir-name))))))
        (setq file-list (cdr file-list)))
      dir-list)) 
  

--- 364,371 -----
  	       (file-directory-p (concat dir file)))
  	  (let* ( (dir-name (concat dir file))
  		  (subs (sub-dirs dir-name)) )
! 	    (setq dir-list (append dir-list (list dir-name)))
! 	    (if subs (setq dir-list (append dir-list subs)))))
        (setq file-list (cdr file-list)))
      dir-list))