diff options
| author | Gerd Moellmann <gerd@gnu.org> | 1999-11-21 16:46:24 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 1999-11-21 16:46:24 +0000 |
| commit | c86b6fd20af0cf9b307469a3bcd85b9efc250e9e (patch) | |
| tree | 9df75555142cf2c38b4c0ce71865ff96755fbccd /lisp/follow.el | |
| parent | c29cefdfa0bdaf07067afa074c89adf120c1b1f9 (diff) | |
| download | emacs-c86b6fd20af0cf9b307469a3bcd85b9efc250e9e.tar.gz | |
Use modern backquote syntax. Minor comment update.
Diffstat (limited to 'lisp/follow.el')
| -rw-r--r-- | lisp/follow.el | 33 |
1 files changed, 13 insertions, 20 deletions
diff --git a/lisp/follow.el b/lisp/follow.el index fcdfd4db2e9..dd2a17c9b0b 100644 --- a/lisp/follow.el +++ b/lisp/follow.el @@ -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 @@ 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 @@ -1775,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)))) @@ -1825,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)))) |