diff options
| -rw-r--r-- | lisp/scroll-bar.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/scroll-bar.el b/lisp/scroll-bar.el index 5c2a47877a8..4ab77a542e1 100644 --- a/lisp/scroll-bar.el +++ b/lisp/scroll-bar.el | |||
| @@ -1,6 +1,7 @@ | |||
| 1 | ;;; scroll-bar.el --- window system-independent scroll bar support. | 1 | ;;; scroll-bar.el --- window system-independent scroll bar support. |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1993, 1994, 1995 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1993, 1994, 1995, 1999, 2000, 2001 |
| 4 | ;; Free Software Foundation, Inc. | ||
| 4 | 5 | ||
| 5 | ;; Maintainer: FSF | 6 | ;; Maintainer: FSF |
| 6 | ;; Keywords: hardware | 7 | ;; Keywords: hardware |
| @@ -330,7 +331,7 @@ EVENT should be a scroll bar click." | |||
| 330 | ;;;; Bindings. | 331 | ;;;; Bindings. |
| 331 | 332 | ||
| 332 | ;;; For now, we'll set things up to work like xterm. | 333 | ;;; For now, we'll set things up to work like xterm. |
| 333 | (cond (x-toolkit-scroll-bars | 334 | (cond ((and (boundp 'x-toolkit-scroll-bars) x-toolkit-scroll-bars) |
| 334 | (global-set-key [vertical-scroll-bar mouse-1] | 335 | (global-set-key [vertical-scroll-bar mouse-1] |
| 335 | 'scroll-bar-toolkit-scroll)) | 336 | 'scroll-bar-toolkit-scroll)) |
| 336 | (t | 337 | (t |