Java API のドキュメントを開いて移動。

どーもーです。

こないだの，man を開いたらそこへ移動，みたいなやつです。
前に書いた my-jde-help-class はちょこすバグってたっぽいので，
修正を施しました。
たぶん大丈夫。ドキュメントがない場合は，ちょっとバグるかも。

(defun my-jde-help-class ()
  (interactive)
  (let (b class-name)
    (walk-windows '(lambda (w)
                     (unless b
                       (save-excursion
                         (set-buffer (window-buffer w))
                         (if (eq major-mode 'w3m-mode)
                             (setq b (window-buffer w)))))))
    (setq class-name (read-from-minibuffer "Class: " (thing-at-point 'symbol)))
    (if b
        ;; 現在のスクリーン内に *w3m* バッファがあればそこへ移動
        (goto-buffer-window b)
        ;; なければ，他のスクリーンも含めて探して
        ;; それでもなければ，スクリーンを作ってから，移動。
      (elscreen-find-and-goto-by-buffer (get-buffer "*w3m*") t nil))
    (jde-help-class class-name)))