Allow more context in recognizing jde-lib-directory-names

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))


------------------------------------------------------------------------------
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