Mercurial > emacs
comparison lisp/scroll-bar.el @ 34871:acde65877c5e
(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) |