Mercurial > emacs
changeset 36803:4b1f1bdaf676
(toplevel): Test if `x-toolkit-scroll-bars' is
bound before using it. It's not bound when configured without X,
for instance.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Wed, 14 Mar 2001 14:00:42 +0000 |
| parents | 7225d251346b |
| children | e4331ae9636d |
| files | lisp/scroll-bar.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/scroll-bar.el Wed Mar 14 13:26:45 2001 +0000 +++ b/lisp/scroll-bar.el Wed Mar 14 14:00:42 2001 +0000 @@ -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 @@ ;;;; 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