# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 943202747 0
# Node ID c06aa85fd1ad1208f60d52c0d44a2ca3cf5c14d2
# Parent  bfce4a7deb1cfcedcace74338a711147c6d92307
Use modern backquote syntax.  Minor comment update.

diff -r bfce4a7deb1c -r c06aa85fd1ad lisp/follow.el
--- a/lisp/follow.el	Sun Nov 21 15:08:37 1999 +0000
+++ b/lisp/follow.el	Sun Nov 21 16:45:47 1999 +0000
@@ -1,13 +1,12 @@
 ;;; follow.el --- Minor mode, Synchronize windows showing the same buffer.
 
-;; Copyright (C) 1995, 1996, 1997 Free Software Foundation, Inc.
+;; Copyright (C) 1995, 1996, 1997, 1999 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
+;; Author: Anders Lindgren <andersl@andersl.com>
+;; Maintainer: Anders Lindgren <andersl@andersl.com>
+;; Created: 1995-05-25
 ;; Keywords: display, window, minor-mode, convenience
-;; Date: 4 Jun 1997
+;; 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:
 ;;
@@ -392,12 +385,12 @@
 (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
@@ -1775,12 +1768,12 @@
 		     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))))
 
 
@@ -1825,12 +1818,12 @@
 
 	(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))))