diff options
author | Gerd Moellmann <gerd@gnu.org> | 2001-03-14 14:00:42 +0000 |
---|---|---|
committer | Gerd Moellmann <gerd@gnu.org> | 2001-03-14 14:00:42 +0000 |
commit | a56792bfc0242fd5661fac48145c7589c144019c (patch) | |
tree | caf2cc12b98b649b5527dc604b1f022371d0e3ec /lisp/scroll-bar.el | |
parent | ef5b91901281dae1abe1c651c4a9954b1efbfb66 (diff) | |
download | emacs-a56792bfc0242fd5661fac48145c7589c144019c.tar.gz |
(toplevel): Test if `x-toolkit-scroll-bars' is
bound before using it. It's not bound when configured without X,
for instance.
Diffstat (limited to 'lisp/scroll-bar.el')
-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 @@ ;;; scroll-bar.el --- window system-independent scroll bar support. -;; Copyright (C) 1993, 1994, 1995 Free Software Foundation, Inc. +;; Copyright (C) 1993, 1994, 1995, 1999, 2000, 2001 +;; Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: hardware @@ -330,7 +331,7 @@ EVENT should be a scroll bar click." ;;;; Bindings. ;;; For now, we'll set things up to work like xterm. -(cond (x-toolkit-scroll-bars +(cond ((and (boundp 'x-toolkit-scroll-bars) x-toolkit-scroll-bars) (global-set-key [vertical-scroll-bar mouse-1] 'scroll-bar-toolkit-scroll)) (t |