From a56792bfc0242fd5661fac48145c7589c144019c Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Wed, 14 Mar 2001 14:00:42 +0000 Subject: (toplevel): Test if `x-toolkit-scroll-bars' is bound before using it. It's not bound when configured without X, for instance. --- lisp/scroll-bar.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'lisp/scroll-bar.el') 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 -- cgit v1.2.1