Commit d08947c5 authored by Gerd Moellmann's avatar Gerd Moellmann

(toplevel): Test if `x-toolkit-scroll-bars' is

bound before using it.  It's not bound when configured without X,
for instance.
parent 65008712
;;; 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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment