(cperl-problems, cperl-tips, cperl-non-problems, cperl-praise): Doc fixes.

[gnu-emacs] / lisp / follow.el

diff --git a/lisp/follow.el b/lisp/follow.el
index a3f1ec782dd9e494e31ab1906f185517ba82d554..8b62c622812cfc662ef4d6afffe2ae798e35c93e 100644 (file)
--- a/lisp/follow.el
+++ b/lisp/follow.el
@@ -1,13 +1,12 @@
-;;; follow.el --- Minor mode, Synchronize windows showing the same buffer.
+;;; follow.el --- synchronize windows showing the same buffer
 
-;; Copyright (C) 1995, 1996, 1997 Free Software Foundation, Inc.
+;; Copyright (C) 1995, 1996, 1997, 1999, 2001 Free Software Foundation, Inc.
 
-;; Author: Anders Lindgren <andersl@csd.uu.se>
-;; Maintainer: Anders Lindgren <andersl@csd.uu.se>
-;; Created: 25 May 1995
-;; Version: 1.7
-;; Keywords: display, window, minor-mode
-;; Date: 4 Jun 1997
+;; Author: Anders Lindgren <andersl@andersl.com>
+;; Maintainer: Anders Lindgren <andersl@andersl.com>
+;; Created: 1995-05-25
+;; Keywords: display, window, minor-mode, convenience
+;; Last Changed: 1999-11-17
 
 ;; This file is part of GNU Emacs.
 
@@ -52,12 +51,6 @@
 ;; and being able to use 144 lines instead of the normal 72... (your
 ;; mileage may vary).
 
-
-;; The latest version, and a demonstration, are avaiable at:
-;;
-;;     http://www.csd.uu.se/~andersl/emacs.shtml
-
-
 ;; To test this package, make sure `follow' is loaded, or will be
 ;; autoloaded when activated (see below). Then do the following:
 ;;
@@ -281,7 +274,8 @@
 (defgroup follow nil
   "Synchronize windows showing the same buffer."
   :prefix "follow-"
-  :group 'windows)
+  :group 'windows
+  :group 'convenience)
 
 (defvar follow-mode nil
   "Variable indicating if Follow mode is active.")
@@ -318,7 +312,8 @@ After that, changing the prefix key requires manipulating keymaps."
   :type 'string
   :group 'follow)
 
-(defcustom follow-intercept-processes t
+(defcustom follow-intercept-processes
+  (fboundp 'start-process)
   "*When non-nil, Follow Mode will monitor process output."
   :type 'boolean
   :group 'follow)
@@ -390,12 +385,12 @@ Used by `follow-window-size-change'.")
 (eval-when-compile (require 'reporter))
 
 (defun follow-submit-feedback ()
-  "Submit feedback on Follow mode to the author: andersl@csd.uu.se"
+  "Submit feedback on Follow mode to the author: andersl@andersl.com"
   (interactive)
   (require 'reporter)
   (and (y-or-n-p "Do you really want to submit a report on Follow mode? ")
        (reporter-submit-bug-report
-       "Anders Lindgren <andersl@csd.uu.se>"
+       "Anders Lindgren <andersl@andersl.com>"
        "follow.el"
        '(post-command-hook
          post-command-idle-hook
@@ -1484,7 +1479,7 @@ position of the first window. Otherwise it is a good guess."
 (defun follow-avoid-tail-recenter (&rest rest)
   "Make sure windows displaying the end of a buffer aren't recentered.
 
-This is done by reading and rewriting the start positon of
+This is done by reading and rewriting the start position of
 non-first windows in Follow Mode."
   (if follow-avoid-tail-recenter-p
       (let* ((orig-buffer (current-buffer))
@@ -1773,12 +1768,12 @@ non-first windows in Follow Mode."
                     scroll-bar-set-window-start)))
         (while cmds
           (eval
-           (` (defadvice (, (intern (symbol-name (car cmds))))
+           `(defadvice ,(intern (symbol-name (car cmds)))
                 (after
-                 (, (intern (concat "follow-" (symbol-name (car cmds)))))
+                 ,(intern (concat "follow-" (symbol-name (car cmds))))
                  activate)
                 "Adviced by Follow Mode."
-                (follow-redraw-after-event (ad-get-arg 0)))))
+                (follow-redraw-after-event (ad-get-arg 0))))
           (setq cmds (cdr cmds))))
 
 
@@ -1823,12 +1818,12 @@ non-first windows in Follow Mode."
 
        (while cmds
          (eval
-          (` (defadvice (, (intern (symbol-name (car cmds))))
+          `(defadvice ,(intern (symbol-name (car cmds)))
                (after
-                (, (intern (concat "follow-" (symbol-name (car cmds)))))
+                ,(intern (concat "follow-" (symbol-name (car cmds))))
                 activate)
                "Adviced by `follow-mode'."
-               (follow-xemacs-scrollbar-support (ad-get-arg 0)))))
+               (follow-xemacs-scrollbar-support (ad-get-arg 0))))
          (setq cmds (cdr cmds))))