Mercurial > hg > xemacs-beta

comparison lisp/modes/follow.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents ec9a17fef872
children 360340f9fd5f
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
47 ;; 47 ;;
48 ;; Follow mode comes to its prime when used on a large screen and two 48 ;; Follow mode comes to its prime when used on a large screen and two
49 ;; side-by-side window are used. The user can, with the help of Follow 49 ;; side-by-side window are used. The user can, with the help of Follow
50 ;; mode, use two full-height windows as though they would have been 50 ;; mode, use two full-height windows as though they would have been
51 ;; one. Imagine yourself editing a large function, or section of text, 51 ;; one. Imagine yourself editing a large function, or section of text,
52 ;; and being able to use 144 lines instead of the normal 72... (your 52 ;; and beeing able to use 144 lines instead of the normal 72... (your
53 ;; mileage may vary). 53 ;; mileage may vary).
54 54
55 ;; The latest version, and a demonstration, are avaiable at: 55 ;; The latest version, and a demonstration, are avaiable at:
56 ;; 56 ;;
57 ;; ftp://ftp.csd.uu.se/pub/users/andersl/emacs/follow.el 57 ;; ftp://ftp.csd.uu.se/pub/users/andersl/emacs/follow.el
732 732
733 Follow mode comes to its prime when used on a large screen and two 733 Follow mode comes to its prime when used on a large screen and two
734 side-by-side window are used. The user can, with the help of Follow 734 side-by-side window are used. The user can, with the help of Follow
735 mode, use two full-height windows as though they would have been 735 mode, use two full-height windows as though they would have been
736 one. Imagine yourself editing a large function, or section of text, 736 one. Imagine yourself editing a large function, or section of text,
737 and being able to use 144 lines instead of the normal 72... (your 737 and beeing able to use 144 lines instead of the normal 72... (your
738 mileage may vary). 738 mileage may vary).
739 739
740 To split one large window into two side-by-side windows, the commands 740 To split one large window into two side-by-side windows, the commands
741 `\\[split-window-horizontally]' or \ 741 `\\[split-window-horizontally]' or \
742 `M-x follow-delete-other-windows-and-split' can be used. 742 `M-x follow-delete-other-windows-and-split' can be used.
2343 ;;; 2343 ;;;
2344 ;;; Please note that the function `follow-avoid-tail-recenter' is also 2344 ;;; Please note that the function `follow-avoid-tail-recenter' is also
2345 ;;; called from other places, e.g. `post-command-hook' and 2345 ;;; called from other places, e.g. `post-command-hook' and
2346 ;;; `post-command-idle-hook'. 2346 ;;; `post-command-idle-hook'.
2347 2347
2348 ;; If this function is called it is too late for this window, but 2348 ;; If this function is called it is to late for this window, but
2349 ;; we might save other windows from being recentered. 2349 ;; we might save other windows from beeing recentered.
2350 2350
2351 (if (and follow-avoid-tail-recenter-p (boundp 'window-scroll-functions)) 2351 (if (and follow-avoid-tail-recenter-p (boundp 'window-scroll-functions))
2352 (add-hook 'window-scroll-functions 'follow-avoid-tail-recenter t)) 2352 (add-hook 'window-scroll-functions 'follow-avoid-tail-recenter t))
2353 2353
2354 2354