Re: jde-gen-class broken

Fixed and checked into the trunk.

Thanks for spotting this.

On Jan 11, 2010, at 12:49 PM, Daniel Flesner wrote:

>
> it appears to have been broken in change #192.
>
> Debugger entered--Lisp error: (invalid-function " * Describe class ")
>  (" * Describe class " (file-name-sans-extension (file-name- 
> nondirectory buffer-file-name)) " here." (quote n) " " (jde-javadoc- 
> insert-empty-line) " " (jde-javadoc-insert-empty-line) " * Created:  
> " (current-time-string) (quote n) " " (jde-javadoc-insert-empty- 
> line) " " (jde-gen-save-excursion (jde-javadoc-insert ...)) " " (jde- 
> gen-save-excursion (jde-javadoc-insert ...)) " " (jde-javadoc-insert- 
> end-block))
>  (progn (progn (require ...) (jde-javadoc-insert-start-block))  
> (quote l) (" * Describe class " (file-name-sans-extension ...) "  
> here." (quote n) " " (jde-javadoc-insert-empty-line) " " (jde- 
> javadoc-insert-empty-line) " * Created: " (current-time-string)  
> (quote n) " " (jde-javadoc-insert-empty-line) " " (jde-gen-save- 
> excursion ...) " " (jde-gen-save-excursion ...) " " (jde-javadoc- 
> insert-end-block)))
>  (if jde-gen-create-javadoc (progn (progn ... ...) (quote l) (" *  
> Describe class " ... " here." ... " " ... " " ... " * Created:  
> " ... ... " " ... " " ... " " ... " " ...)))
>  (when jde-gen-create-javadoc (progn (require ...) (jde-javadoc- 
> insert-start-block)) (quote l) (" * Describe class " (file-name-sans- 
> extension ...) " here." (quote n) " " (jde-javadoc-insert-empty- 
> line) " " (jde-javadoc-insert-empty-line) " * Created: " (current- 
> time-string) (quote n) " " (jde-javadoc-insert-empty-line) " " (jde- 
> gen-save-excursion ...) " " (jde-gen-save-excursion ...) " " (jde- 
> javadoc-insert-end-block)))
>  eval((when jde-gen-create-javadoc (progn (require ...) (jde-javadoc- 
> insert-start-block)) (quote l) (" * Describe class " (file-name-sans- 
> extension ...) " here." (quote n) " " (jde-javadoc-insert-empty- 
> line) " " (jde-javadoc-insert-empty-line) " * Created: " (current- 
> time-string) (quote n) " " (jde-javadoc-insert-empty-line) " " (jde- 
> gen-save-excursion ...) " " (jde-gen-save-excursion ...) " " (jde- 
> javadoc-insert-end-block))))
>  ad-Orig-tempo-insert((when jde-gen-create-javadoc (progn  
> (require ...) (jde-javadoc-insert-start-block)) (quote l) (" *  
> Describe class " (file-name-sans-extension ...) " here." (quote n) "  
> " (jde-javadoc-insert-empty-line) " " (jde-javadoc-insert-empty- 
> line) " * Created: " (current-time-string) (quote n) " " (jde- 
> javadoc-insert-empty-line) " " (jde-gen-save-excursion ...) " " (jde- 
> gen-save-excursion ...) " " (jde-javadoc-insert-end-block))) nil)
>  tempo-insert((when jde-gen-create-javadoc (progn (require ...) (jde- 
> javadoc-insert-start-block)) (quote l) (" * Describe class " (file- 
> name-sans-extension ...) " here." (quote n) " " (jde-javadoc-insert- 
> empty-line) " " (jde-javadoc-insert-empty-line) " * Created:  
> " (current-time-string) (quote n) " " (jde-javadoc-insert-empty- 
> line) " " (jde-gen-save-excursion ...) " " (jde-gen-save- 
> excursion ...) " " (jde-javadoc-insert-end-block))) nil)
>  #[(elt) "Â	\"‡" [elt on-region tempo-insert] 3]((when jde-gen- 
> create-javadoc (progn (require ...) (jde-javadoc-insert-start- 
> block)) (quote l) (" * Describe class " (file-name-sans- 
> extension ...) " here." (quote n) " " (jde-javadoc-insert-empty- 
> line) " " (jde-javadoc-insert-empty-line) " * Created: " (current- 
> time-string) (quote n) " " (jde-javadoc-insert-empty-line) " " (jde- 
> gen-save-excursion ...) " " (jde-gen-save-excursion ...) " " (jde- 
> javadoc-insert-end-block))))
>  mapc(#[(elt) "Â	\"‡" [elt on-region tempo-insert] 3] ((funcall jde- 
> gen-boilerplate-function) (jde-gen-get-package-statement) (when jde- 
> gen-create-javadoc (progn ... ...) (quote l) (" * Describe class  
> " ... " here." ... " " ... " " ... " * Created: " ... ... " " ... "  
> " ... " " ... " " ...)) "public class " (file-name-sans-extension  
> (file-name-nondirectory buffer-file-name)) " " (jde-gen-get-extend- 
> class) (jde-gen-electric-brace) (quote p) (quote n) "}" > (if jde- 
> gen-comments (concat " // " ...)) (quote >) (quote n) (progn (tempo- 
> backward-mark) (jde-gen-save-excursion ...) (jde-gen-save- 
> excursion ...)) (progn (re-search-forward "^[ 	]*$") (setq tempo- 
> marks nil) nil)))
>  ad-Orig-tempo-insert-template(tempo-template-java-class-buffer- 
> template nil)
>  tempo-insert-template(tempo-template-java-class-buffer-template nil)
>  tempo-template-java-class-buffer-template()
>  jde-gen-class()
>  call-interactively(jde-gen-class t nil)
>  execute-extended-command(nil)
>  call-interactively(execute-extended-command nil nil)
>
> ------------------------------------------------------------------------------
> This SF.Net email is sponsored by the Verizon Developer Community
> Take advantage of Verizon's best-in-class app development support
> A streamlined, 14 day to market process makes app distribution fast  
> and easy
> Join now and get one step closer to millions of Verizon customers
> http://p.sf.net/sfu/verizon-dev2dev  
> _______________________________________________
> jdee-devel mailing list
> [email protected]
> https://lists.sourceforge.net/lists/listinfo/jdee-devel


------------------------------------------------------------------------------
This SF.Net email is sponsored by the Verizon Developer Community
Take advantage of Verizon's best-in-class app development support
A streamlined, 14 day to market process makes app distribution fast and easy
Join now and get one step closer to millions of Verizon customers
http://p.sf.net/sfu/verizon-dev2dev