Mercurial > emacs
comparison lisp/follow.el @ 90133:4da4a09e8b1b
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-31
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 206-222)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 45-52)
- Update from CVS
- Update from CVS: texi Makefile.in CVS keyw cruft
- Update from CVS: ChangeLog tweaks
author | Miles Bader <miles@gnu.org> |
---|---|
date | Thu, 31 Mar 2005 09:58:14 +0000 |
parents | 4c90ffeb71c5 7160fe3a7ef1 |
children | 08185296b491 |
comparison
equal
deleted
inserted
replaced
90132:4080fe8b4f0f | 90133:4da4a09e8b1b |
---|---|
1 ;;; follow.el --- synchronize windows showing the same buffer | 1 ;;; follow.el --- synchronize windows showing the same buffer |
2 | 2 |
3 ;; Copyright (C) 1995, 1996, 1997, 1999, 2001 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1995, 1996, 1997, 1999, 2001, 2005 |
4 ;; Free Software Foundation, Inc. | |
4 | 5 |
5 ;; Author: Anders Lindgren <andersl@andersl.com> | 6 ;; Author: Anders Lindgren <andersl@andersl.com> |
6 ;; Maintainer: Anders Lindgren <andersl@andersl.com> | 7 ;; Maintainer: Anders Lindgren <andersl@andersl.com> |
7 ;; Created: 1995-05-25 | 8 ;; Created: 1995-05-25 |
8 ;; Keywords: display, window, minor-mode, convenience | 9 ;; Keywords: display, window, minor-mode, convenience |
706 ;;{{{ Find file hook | 707 ;;{{{ Find file hook |
707 | 708 |
708 ;; This will start follow-mode whenever a new file is loaded, if | 709 ;; This will start follow-mode whenever a new file is loaded, if |
709 ;; the variable `follow-auto' is non-nil. | 710 ;; the variable `follow-auto' is non-nil. |
710 | 711 |
711 (add-hook 'find-file-hooks 'follow-find-file-hook t) | 712 (add-hook 'find-file-hook 'follow-find-file-hook t) |
712 | 713 |
713 (defun follow-find-file-hook () | 714 (defun follow-find-file-hook () |
714 "Find-file hook for Follow Mode. See the variable `follow-auto'." | 715 "Find-file hook for Follow Mode. See the variable `follow-auto'." |
715 (if follow-auto (follow-mode t))) | 716 (if follow-auto (follow-mode t))) |
716 | 717 |
2345 ;; | is ten seconds. Time is valuable and ten seconds' worth of it is well | | 2346 ;; | is ten seconds. Time is valuable and ten seconds' worth of it is well | |
2346 ;; | worth the investment of a day's happy activity working out a way to | | 2347 ;; | worth the investment of a day's happy activity working out a way to | |
2347 ;; | save it". -- Douglas Adams, "Last Chance to See" | | 2348 ;; | save it". -- Douglas Adams, "Last Chance to See" | |
2348 ;; \------------------------------------------------------------------------/ | 2349 ;; \------------------------------------------------------------------------/ |
2349 | 2350 |
2350 ;;; arch-tag: 7b16bb1a-808c-4991-a8cc-66d3822936d0 | 2351 ;; arch-tag: 7b16bb1a-808c-4991-a8cc-66d3822936d0 |
2351 ;;; follow.el ends here | 2352 ;;; follow.el ends here |