Allow more context in recognizing jde-lib-directory-names (again)

Hi Jeff.

Will you please make your changes in the file itself in your
subversion copy and then do a subversion diff, i.e.:

cd .../branches/2.4.0/jde
svn diff lisp/jde.el

The output is more useful than this for me to patch things.  Afterward
I'll have a look.

Thanks for this and your patch in advance.


Jeff Peck writes:
 > I think this patch to jde-expand-classpath makes good sense:
 > a) it means things named: ".../jarx" or ".../lib2" are not seen as *.jar repositories
 >     (for backward compatibility, you could use: (list "/lib[^/]*$" "/jar[^/]*$") )
 > b) it means one can say: "/lib/ext$" *is* a jar repository
 > as in: '(jde-lib-directory-names '("/lib$" "/jar$" "/lib/ext$"))
 > which I need and could find no way to express, without including other foo/ext directories...
 > (and writing a jde-excluded-file-names to remove the extraneous files seems wrong;
 >  I expect the excluded list to operate on the 'tail' of the filename, not on the upper directories)
 > 
 > patch to jde.el:
 > :lisp>diff jde.el.~1~ jde.el
 > 527c527
 > < (defcustom jde-lib-directory-names (list "^lib" "^jar")
 > ---
 > > (defcustom jde-lib-directory-names (list "/lib$" "/jar$")
 > 1519,1523c1519,1522
 > <      (let ((dir-name (file-name-nondirectory path)))
 > <        (member-if 
 > <         (lambda (lib-name)
 > <    (string-match lib-name dir-name))
 > <         jde-lib-directory-names)))
 > ---
 > >      ;; (2008-08-26: examine whole path name)
 > >      (member-if 
 > >         (lambda (lib-name) (string-match lib-name path))
 > >         jde-lib-directory-names)


-- 
Paul Landes
[email protected]

------------------------------------------------------------------------------
Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day 
trial. Simplify your report design, integration and deployment - and focus on 
what you do best, core application coding. Discover what's new with 
Crystal Reports now.  http://p.sf.net/sfu/bobj-july