Mercurial > emacs

comparison lisp/follow.el @ 90133:4da4a09e8b1b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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