Cool! I vote for integrating it in the next JDE release! Klaus > -----Urspr�ngliche Nachricht----- > Von: Robert Mecklenburg [mailto:[EMAIL PROTECTED]] > Gesendet am: Freitag, 27. April 2001 18:25 > An: [EMAIL PROTECTED] > Betreff: Simple enhancement to jde-help-symbol > > I've modified jde-help-symbol to check for a prefix argument, if > present it now prompts for a symbol name rather than grabbing > thing-at-point. This provides easy access to documentation even if > the name isn't in a buffer. Hope you like it: > > (defun jde-help-symbol (arg) > "Displays help for the symbol at point or, with a prefix > argument from the > minibuffer. The symbol may reference an object, a class, or a > method or field. > If the symbol references a class, this function displays the > javadoc for the > class. If the symbol references an object, this method > displays the javadoc for > the class of the object. If the symbol references a field or > a method, this > function displays the javadoc for the class of the object of > which the field or > method is a member. Eventually this function will be enhanced > to position > the javadoc at the point where the method or field is documented." > (interactive "P") > (condition-case err > (let* ((unqualified-name (if arg > (read-from-minibuffer "Help > for symbol: ") > (thing-at-point 'symbol))) > (class-names > (bsh-eval-r > (concat > "jde.util.JdeUtilities.getQualifiedName(\"" unqualified-name > "\");")))) > (if (not class-names) > (let ((parse-result (jde-help-parse-symbol-at-point))) > (if parse-result > (setq unqualified-name (car parse-result))) > (setq class-names > ;;expand the names into full names, or a > list of names > (bsh-eval-r > (concat > "jde.util.JdeUtilities.getQualifiedName(\"" unqualified-name > "\");"))))) > > ;;Check return value of QualifiedName > (if class-names > (let ((doc-files (mapcar 'jde-help-get-doc class-names))) > (if doc-files > (progn > ;;Remove any annoying nils from the returned values > (setq doc-files (delq nil doc-files)) > (if (eq 1 (length doc-files)) > ;;then show it > (jde-help-show-document (car doc-files)) > ;;else let the user choose > ;;If the list is only one long > (jde-help-choose-document doc-files))) > (error "Cannot find documentation for %s" > unqualified-name))) > (error "Cannot find %s" unqualified-name))) > (error > (message "%s" (error-message-string err))))) > > > > -- > Robert >
