Emacs Scroll-Bar

[Andreas Bauer]

Hi all!

The following should help me move/drag the Emacs scroll-bar using the
left mouse button:

 (global-set-key [vertical-scroll-bar down-mouse-1] 'scroll-bar-drag)
 (global-set-key [vertical-scroll-bar drag-mouse-1] 'scroll-bar-drag)

Unfortunately this piece of code fails with Emacs 21.  Does anyone know
why, or which is the proper command for doing what I want?

Any hints are very much appreciated!

Cheers,
Andi.

-- 
(o_  Andreas Bauer, baueran at in.tum.de, http://home.in.tum.de/baueran/
//\  "The two most abundant things in the universe are hydrogen and
V_/_  stupidity." -- Harlan Ellison