From: Glenn Morris <rgm@gnu.org>
Date: Wed, 18 Sep 2013 04:42:30 +0000 (-0700)
Subject: * follow.el (scroll-bar-toolkit-scroll, scroll-bar-drag)
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1549
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7e58af4b13a4fdd32cb052a08bc6a7121fd3a6a4;p=emacs.git

* follow.el (scroll-bar-toolkit-scroll, scroll-bar-drag)
(scroll-bar-scroll-up, scroll-bar-scroll-down, mwheel-scroll): Declare.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a49549f9921..b39bf122642 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -19,6 +19,10 @@
 	* faces.el (x-display-list, x-open-connection, x-get-resource):
 	Declare.
 
+	* follow.el (scroll-bar-toolkit-scroll, scroll-bar-drag)
+	(scroll-bar-scroll-up, scroll-bar-scroll-down, mwheel-scroll):
+	Declare.
+
 	* frame.el (x-display-grayscale-p, x-display-name): Declare.
 
 	* simple.el (font-info): Declare.
diff --git a/lisp/follow.el b/lisp/follow.el
index 2c9365b2ba6..32411914a19 100644
--- a/lisp/follow.el
+++ b/lisp/follow.el
@@ -1,6 +1,6 @@
 ;;; follow.el --- synchronize windows showing the same buffer
-;; Copyright (C) 1995-1997, 1999, 2001-2013 Free Software Foundation,
-;; Inc.
+
+;; Copyright (C) 1995-1997, 1999, 2001-2013 Free Software Foundation, Inc.
 
 ;; Author: Anders Lindgren <andersl@andersl.com>
 ;; Maintainer: FSF (Anders' email bounces, Sep 2005)
@@ -1299,6 +1299,12 @@ non-first windows in Follow mode."
 ;; This handles the case where the user drags the scroll bar of a
 ;; non-selected window whose buffer is in Follow mode.
 
+(declare-function scroll-bar-toolkit-scroll "scroll-bar" (event))
+(declare-function scroll-bar-drag "scroll-bar" (event))
+(declare-function scroll-bar-scroll-up "scroll-bar" (event))
+(declare-function scroll-bar-scroll-down "scroll-bar" (event))
+(declare-function mwheel-scroll "mwheel" (event))
+
 (defun follow-scroll-bar-toolkit-scroll (event)
   (interactive "e")
   (scroll-bar-toolkit-scroll event)