Re: Info-scroll-up/down on mode-line

[Nick Roberts]

 > Maybe:
 > 
 > *** info.el  01 Apr 2007 23:11:10 -0700      1.500
 > --- info.el  23 Apr 2007 00:02:02 -0700      
 > ***************
 > *** 2602,2607 ****
 > --- 2602,2608 ----
 >   in other ways.)"
 >   
 >     (interactive)
 > +   (select-window (posn-window (event-start last-input-event)))
 >     (if (or (< (window-start) (point-min))
 >        (> (window-start) (point-max)))
 >         (set-window-start (selected-window) (point)))
 >...


Sometimes I see it like below.  Also I wonder if the window should be selected
or save-selected-window used.

-- 
Nick                                           http://www.inet.net.nz/~nickrob


*** info.el     02 Apr 2007 17:11:22 +1200      1.500
--- info.el     23 Apr 2007 21:01:49 +1200      
***************
*** 2587,2593 ****
               (goto-char (point-max)))))
        (t (error "No previous nodes"))))
  
! (defun Info-scroll-up ()
    "Scroll one screenful forward in Info, considering all nodes as one 
sequence.
  Once you scroll far enough in a node that its menu appears on the screen
  but after point, the next scroll moves into its first subnode, unless
--- 2587,2593 ----
               (goto-char (point-max)))))
        (t (error "No previous nodes"))))
  
! (defun Info-scroll-up (e)
    "Scroll one screenful forward in Info, considering all nodes as one 
sequence.
  Once you scroll far enough in a node that its menu appears on the screen
  but after point, the next scroll moves into its first subnode, unless
***************
*** 2601,2607 ****
  item.  (That case won't normally result from this command, but can happen
  in other ways.)"
  
!   (interactive)
    (if (or (< (window-start) (point-min))
          (> (window-start) (point-max)))
        (set-window-start (selected-window) (point)))
--- 2601,2608 ----
  item.  (That case won't normally result from this command, but can happen
  in other ways.)"
  
!   (interactive (list last-input-event))
!   (select-window (posn-window (event-start e)))
    (if (or (< (window-start) (point-min))
          (> (window-start) (point-max)))
        (set-window-start (selected-window) (point)))