JDEE: Add wizard usability patch.

svn path=/nixpkgs/trunk/; revision=16395

pkgs/applications/editors/emacs-modes/jdee/default.nix

@@ -18,7 +18,7 @@ in
     patches = [
       ./installation-layout.patch ./cedet-paths.patch ./elib-avltree.patch
       ./java-directory.patch ./jde-directory-files-recurs.patch
-      ./jde-help-find-javadoc.patch
+      ./jde-help-find-javadoc.patch ./jde-wiz-update-implements-clause.patch
     ];
 
     configurePhase = ''
@@ -45,7 +45,7 @@ in
 
     buildInputs = [ emacs ant ];
     propagatedBuildInputs = [ cedet ];
-    propagatedUserEnvPkgs = propagatedBuildInputs;
+    propagatedUserEnvPkgs = propagatedBuildInputs; # FIXME: Not honored
 
     meta = {
       description = "JDEE, a Java development environment for Emacs";

pkgs/applications/editors/emacs-modes/jdee/jde-wiz-update-implements-clause.patch

@@ -0,0 +1,14 @@
+This patch allows `C-c C-v e' (`jde-wiz-extend-abstract-class') to do the
+right thing, even when invoked, say, on an empty file.
+
+--- jde/lisp/jde-wiz.el	(revision 90)
++++ jde/lisp/jde-wiz.el	(working copy)
+@@ -99,7 +99,7 @@ extends clause is updated"
+     (save-excursion
+       (let* ((class-re "class[ \t]+\\([a-zA-z]+[a-zA-Z0-9._]*\\).*[ \n]*")
+ 	     (open-brace-pos
+-	      (scan-lists (point) -1 1))
++	      (ignore-errors (scan-lists (point) -1 1)))
+ 	     (class-name-end-pos
+ 	      (when open-brace-pos
+ 		(goto-char open-brace-pos)