emacs/lisp/follow.el

67 ;;   is on line 71):
78 ;;   As you can see, the right-hand window starts at line 73, the line
84 ;;   line of the left-hand window.  Enter new lines into the
116 ;; Since the display of XEmacs is pixel-oriented, a line could be
120 ;; following line in your init-file:
185 ;;	follow-next-window			 C-c . n
186 ;;		Select the next window in the frame showing the same buffer.
264 	     (if (eq (get 'force-mode-line-update 'byte-compile)
266 		 (put 'force-mode-line-update 'byte-compile 'nil))
327     (define-key map "n"		'follow-next-window)
369 	     ("Next Windows"       . follow-next-window)
432 		    ["Next Windows" follow-next-window t]
458 (defcustom follow-mode-line-text " Follow"
459   "Text shown in the mode line when Follow mode is active.
494   '(next-line previous-line forward-char backward-char)
512 (defvar follow-internal-force-redisplay nil
610          ;; the point will have a chance to get into the next window.
613          (force-mode-line-update)
618          (force-mode-line-update)
653 ;; We must sometimes set `follow-internal-force-redisplay', otherwise
661 If called with no ARG, the `next-screen-context-lines' last lines of
673 	 (setq follow-internal-force-redisplay t))
683 	     (vertical-motion (- next-screen-context-lines))
690 If called with no ARG, the `next-screen-context-lines' top lines of
712 				    next-screen-context-lines)))
715 	     (vertical-motion (- next-screen-context-lines 1))
716 	     (setq follow-internal-force-redisplay t))))))
736 To bind this command to a hotkey, place the following line
752 	  (setq follow-internal-force-redisplay t)))
786 To bind this command to a hotkey place the following line
800 (defun follow-next-window ()
801   "Select the next window showing the same buffer."
836 With a positive argument, place the current line ARG lines
855 	  (setq follow-internal-force-redisplay t)))
863       ;;(setq follow-internal-force-redisplay t)
925       (setq win (next-window win 'not))
949 Actually, the position returned is the start of the next
981 		      ;; coinside with the start of a line.
1065 ;; should start at a full screen line.
1099 ;; line. If WIN is not aligned the start is updated which probably
1109   "Make sure that the start of WIN starts at a full screen line."
1183       ;; Make sure the line start in the beginning of a real screen
1184       ;; line.
1254 ;; have somewhere splited a line between windows) we try to enhance
1339 ;; a point on the same line as GUESS, or above.
1352       ;; Always calculate what happend when no line is displayed in the first
1369 		(t			; Store result for next iteration
1376 ;; This sets the window internal flag `force_start'. The effect is that
1388 ;; call from `post-command-hook' only works until the next redisplay.
1409 	;; window, `next-window' will never find it again...
1424 		(setq win (next-window win 'not t))
1478 	      (or follow-internal-force-redisplay
1582 	      (if (or follow-internal-force-redisplay
1588 		    (setq follow-internal-force-redisplay nil)
1598 		    ;; (When scrolling one line in a wide window which
1723        ;; (defadvice scrollbar-line-down
1724        ;;	(after follow-scrollbar-line-down activate)
1727       (let ((cmds '(scrollbar-line-down	; Window
1728 		    scrollbar-line-up
1962 	    ;; `insert-before-markers' just in case the users next
1986 		   ;; starts in one window and continues into the next.
2035 		  (if (or follow-internal-force-redisplay
2163 ;; going to be recentered at the next redisplay, unless we do a