Mercurial > hg > xemacs-beta

comparison lisp/modes/follow.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents 131b0175ea99
children
comparison
equal deleted inserted replaced
107:523141596bda 108:360340f9fd5f
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 beeing able to use 144 lines instead of the normal 72... (your 52 ;; and being 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 beeing able to use 144 lines instead of the normal 72... (your 737 and being 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 to late for this window, but 2348 ;; If this function is called it is too late for this window, but
2349 ;; we might save other windows from beeing recentered. 2349 ;; we might save other windows from being 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