From 7e58af4b13a4fdd32cb052a08bc6a7121fd3a6a4 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 17 Sep 2013 21:42:30 -0700 Subject: [PATCH] * follow.el (scroll-bar-toolkit-scroll, scroll-bar-drag) (scroll-bar-scroll-up, scroll-bar-scroll-down, mwheel-scroll): Declare. --- lisp/ChangeLog | 4 ++++ lisp/follow.el | 10 ++++++++-- 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a49549f992..b39bf12264 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 2c9365b2ba..32411914a1 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 ;; 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) -- 2.20.1