Mercurial > emacs

comparison lisp/scroll-bar.el @ 34871:acde65877c5e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(x-toolkit-scroll-bars): Check for x-toolkit-scroll-bars instead of x-toolkit-scroll-bars-p.
author Gerd Moellmann <gerd@gnu.org>
date Wed, 27 Dec 2000 14:34:32 +0000
parents 34b81c946198
children 4b1f1bdaf676
comparison
equal deleted inserted replaced
34870:6c2c536e15aa 34871:acde65877c5e
328 328
329 329
330 ;;;; Bindings. 330 ;;;; Bindings.
331 331
332 ;;; For now, we'll set things up to work like xterm. 332 ;;; For now, we'll set things up to work like xterm.
333 (cond (x-toolkit-scroll-bars-p 333 (cond (x-toolkit-scroll-bars
334 (global-set-key [vertical-scroll-bar mouse-1] 334 (global-set-key [vertical-scroll-bar mouse-1]
335 'scroll-bar-toolkit-scroll)) 335 'scroll-bar-toolkit-scroll))
336 (t 336 (t
337 (global-set-key [vertical-scroll-bar mouse-1] 337 (global-set-key [vertical-scroll-bar mouse-1]
338 'scroll-bar-scroll-up) 338 'scroll-bar-scroll-up)