Paul,
This sounds nice but could you make the default nil instead of 't
Brad
On Wed, Sep 20, 2000 at 10:01:16PM +0000, Paul Kinnucan wrote:
> At 10:38 AM 9/20/00 -0400, Jason Stell wrote:
> >I'm resending the message below, because I don't think it went through
> >previously... (sorry if this is a dup)
> >============================================
> >
> > Below is a patch to jde-wiz.el that I have created to add
> >functionality to automatically sort the list of import
> > statements when a new one is programmatically added. There is a new
> >custom variable called
> > jde-auto-sort-imports that defaults to 't'. I also added changes to
> >preserve the current location in the buffer
> > when the new statement is added.
> >
> > FWIW: Hope someone else finds this useful.
> >
>
> Hi Jason,
>
> Thanks for this enhancement. I will include it in the next release.
>
> - Paul
>
> >
> > Regards and Thanks!
> >
> > Jason Stell
> > ====================================================
> >
> > *** jde-wiz.el_orig Tue Sep 19 00:57:54 2000
> > --- jde-wiz.el Tue Sep 19 08:38:57 2000
> > ***************
> > *** 38,43 ****
> > --- 38,53 ----
> > ;; end JVL enhancement contributed by Jim LoVerde <[EMAIL PROTECTED]>
> >
> >
> > + ;; auto sorting of import statements
> > + (defcustom jde-auto-sort-imports t
> > + "*Automatically resort import statements after a jde-wiz-import.
> > + If non-nil, the JDE automatically resorts the import statements when
> >a new import statement is added using
> > jde-wiz-import or jde-wiz-find-and-import."
> >
> > + :group 'jde-project
> > + :type 'boolean
> > + )
> > + ;;
> > +
> > +
> > (defun jde-wiz-update-class-list()
> > "Update the class list used to resolve class names.
> > The first time you invoke a JDE wizard, the JDE builds a list of all
> >classes on the classpath
> > ***************
> > *** 229,241 ****
> > (setq i 0)
> > (setq n (length new-imports))
> > (while (< i n)
> > (let ((new-import
> > (nth i new-imports)))
> > (progn
> > (insert
> > (concat "import " new-import ";\n"))
> > (message "Imported %s" new-import))
> > ! (setq i (+ i 1)))))))
> >
> >
> > (defun jde-wiz-strip-existing-imports (new-imports existing-imports)
> >
> > --- 239,255 ----
> > (setq i 0)
> > (setq n (length new-imports))
> > (while (< i n)
> > + (let (deactivate-mark) t)
> > (let ((new-import
> > (nth i new-imports)))
> > (progn
> > (insert
> > (concat "import " new-import ";\n"))
> > (message "Imported %s" new-import))
> > ! (setq i (+ i 1)))
> > ! (if jde-auto-sort-imports
> > ! (jde-sort-imports))
> > ! ))))
> >
> >
> > (defun jde-wiz-strip-existing-imports (new-imports existing-imports)
> >
> >
> >
> >Attachment Converted: "g:\eudora\attach\jason.stell.vcf"
> >
--
--- There are two kinds of knowledge, you either know the answer or
you know where to find it
-Kane, Johnson, and anonymous
