Applied to CVS for 21.1. This fix will be in 21.1.9.
- vin
>>>> On Wed, 05 Jan 2000 20:24:45 +0900, Yoshiki Hayashi
<t90553(a)m.ecc.u-tokyo.ac.jp> said:
Yoshiki> Charles G Waldman <cgw(a)fnal.gov> writes:
> Adrian Aichner writes:
> > >>>>> "Charles" == Charles G Waldman
<cgw(a)fnal.gov> writes:
> >
> > Charles> Has anybody noticed that this function doesn't work in
> > Charles> 21.1 (patch 8) "Bryce Canyon"?
> >
> > Charles> For instance if I type
> >
> > Charles> C-h a test RET
> >
> > Charles> the first entry in the list of "Functions and Macros"
is
> > Charles> add-latest-path
> >
> > Charles> If I click mouse-2 on this link, I get the right doc
> > Charles> opened up in a bottom window. But within this doc
> > Charles> window, the following of links does not seem to work.
> >
> > For me it works on both instances of `load-path', but not on
> > `default-load-path'.
> >
> > I think this is because `default-load-path' does not exist as a
> > variable.
>
> Very odd. For me it doesn't work on either `load-path' or
> `default-load-path'.
>
> I tried running with -q and saw the same behaviour.
Yoshiki> I doesn't work for me, neither. Here's the patch to fix it.
Yoshiki> If you type RET or click mouse-2 at wrong place, it will get
Yoshiki> documentation of nil. I think it's acceptable since you
Yoshiki> also get nil when you type RET at empty line in
Yoshiki> Hyper-Apropos buffer.
Yoshiki> 2000-01-05 Yoshiki Hayashi <t90553(a)mail.ecc.u-tokyo.ac.jp>
Yoshiki> * hyper-apropos.el (hyper-apropos-this-symbol): Don't always
Yoshiki> get symbol at point-min.
Yoshiki> Index: hyper-apropos.el
Yoshiki> ===================================================================
Yoshiki> RCS file: /usr/CVSroot/XEmacs/xemacs/lisp/hyper-apropos.el,v
Yoshiki> retrieving revision 1.5.2.5
Yoshiki> diff -u -r1.5.2.5 hyper-apropos.el
Yoshiki> --- hyper-apropos.el 1999/12/24 09:24:31 1.5.2.5
Yoshiki> +++ hyper-apropos.el 2000/01/05 10:48:36
Yoshiki> @@ -1085,12 +1085,13 @@
Yoshiki> nil
Yoshiki> (forward-char 3)
Yoshiki> (read (point-marker))))
Yoshiki> - ((and
Yoshiki> - (eq major-mode 'hyper-apropos-help-mode)
Yoshiki> - (> (point) (point-min)))
Yoshiki> - (save-excursion
Yoshiki> - (goto-char (point-min))
Yoshiki> - (hyper-apropos-this-symbol)))
Yoshiki> + ;; What's this? This ends up in the same symbol already described.
Yoshiki> +;; ((and
Yoshiki> +;; (eq major-mode 'hyper-apropos-help-mode)
Yoshiki> +;; (> (point) (point-min)))
Yoshiki> +;; (save-excursion
Yoshiki> +;; (goto-char (point-min))
Yoshiki> +;; (hyper-apropos-this-symbol)))
Yoshiki> (t
Yoshiki> (let* ((st (progn
Yoshiki> (skip-syntax-backward "w_")
Yoshiki> --
Yoshiki> Yoshiki Hayashi