Re: the actions of the spacebar differ in GNU Emacs info [bad] and command line info [good]

[Kevin Rodgers]

"Dan Jacobson" <jidanni@kimo.FiXcomTHiS.tw> wrote:
> Kevin Rodgers writes:
> > Here are versions of your advice I just hacked that try to be a
> > little
> > more sophisticated about when to let the Info mode commands do their
> > thing.  Do they behave closer to the standalone info program?
> >
> > (defadvice Info-scroll-up (around scroll-up activate)
> >   "Don't move into a menu node's subnode."
> >   (if (and (pos-visible-in-window-p (point-max))
> >    (not (text-property-any (point) (point-max) 'face 'info-node)))
> >       ad-do-it
> >     (scroll-up)))
...
> No I'm sorry.  Say you go to a lengthy info page, e.g. the first one
> of info.
> You page down with spacebar. you finally get to the end and then we
> see you are taken to the top menu item on the final screenful. I want
> to be taken to the top menu item of the entire page, not just the last
> screenful.
>
> In the 20.7 GNU Emacs I get to where I want to go, but it happens
> before I can read more than one screenful of the current info page
> [unless there aren't any menu items in view yet.]
>
> In your version I am allowed to finish reading this page, but I get
> taken not to the net logical thing to read as we might get to as
> reading a paper manual page by page, but get jolted ahead
> unnecessarily.
>
...
> Wait, I think I fixed it:
> (defadvice Info-scroll-up (around jidanni:Info-scroll-up)
>   "quick hack to demilitarize it."
>   (if (not(pos-visible-in-window-p (point-max)))
>       (scroll-up)
>     (goto-char (point-min))
>     (Info-next-preorder)))
> ;old fogey me didn't hasen't learned 'faces'yet so didn't add that
> line.

The `(not (text-property-any ...))' form insured that there are no menu
entries below point (before running the built-in `Info-scroll-up'
command).  But your use of `Info-next-preorder' instead of the built-in
command is better.

--
Kevin Rodgers <kevinr@ihs.com>          Lead Software Engineer
Information Handling Services           Electronic Systems Development
15 Inverness Way East, M/S A114         GO BUFFS!
Englewood CO 80112-5776 USA             1 303 397 2807[voice]


Sent via Deja.com
http://www.deja.com/