Mercurial > emacs
comparison lisp/mouse.el @ 4577:c071de572565
(mouse-drag-region): Mouse in menu bar means scroll up.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 11 Aug 1993 21:29:51 +0000 |
| parents | b9118969ce28 |
| children | 168bcc1aeea3 |
comparison
equal
deleted
inserted
replaced
| 4576:fb0a5397e223 | 4577:c071de572565 |
|---|---|
| 217 ((and (not (eobp)) | 217 ((and (not (eobp)) |
| 218 (>= mouse-row bottom)) | 218 (>= mouse-row bottom)) |
| 219 (mouse-scroll-subr (1+ (- mouse-row bottom)) | 219 (mouse-scroll-subr (1+ (- mouse-row bottom)) |
| 220 mouse-drag-overlay start-point))))) | 220 mouse-drag-overlay start-point))))) |
| 221 | 221 |
| 222 ;; Otherwise, we have no idea where the mouse is. | 222 (t |
| 223 (t))))) | 223 (let ((mouse-y (cdr (cdr (mouse-position)))) |
| 224 (menu-bar-lines (or (cdr (assq 'menu-bar-lines | |
| 225 (frame-parameters))) | |
| 226 0))) | |
| 227 | |
| 228 ;; Are we on the menu bar? | |
| 229 (and (integerp mouse-y) (< mouse-y menu-bar-lines) | |
| 230 (mouse-scroll-subr (- mouse-y menu-bar-lines) | |
| 231 mouse-drag-overlay start-point)))))))) | |
| 224 | 232 |
| 225 (if (and (eq (get (event-basic-type event) 'event-kind) 'mouse-click) | 233 (if (and (eq (get (event-basic-type event) 'event-kind) 'mouse-click) |
| 226 (eq (posn-window (event-end event)) start-window) | 234 (eq (posn-window (event-end event)) start-window) |
| 227 (numberp (posn-point (event-end event)))) | 235 (numberp (posn-point (event-end event)))) |
| 228 (progn | 236 (progn |