diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/follow.el | 10 |
2 files changed, 12 insertions, 2 deletions
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) |