> 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))) _______________________________________________ emacs-pretest-bug mailing list [email protected] http://lists.gnu.org/mailman/listinfo/emacs-pretest-bug
