diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2006-09-19 16:33:30 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2006-09-19 16:33:30 +0000 |
| commit | e9ae308cb4b9eb12cf587e8e810fc25a455987a1 (patch) | |
| tree | c6b1e2fa999b9ba9e55ba80e6da079654993a109 /lisp/mouse.el | |
| parent | 31790df395a5c0a9c6592621b797e2932c8faf54 (diff) | |
| download | emacs-e9ae308cb4b9eb12cf587e8e810fc25a455987a1.tar.gz | |
(mouse-on-link-p): Tentatively fix last change.
(mouse-drag-vertical-line): Remove unused var `wconfig'.
Diffstat (limited to 'lisp/mouse.el')
| -rw-r--r-- | lisp/mouse.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index 5a598c304c9..2510888f468 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -556,7 +556,7 @@ resized by dragging their header-line." (echo-keystrokes 0) (start-event-frame (window-frame (car (car (cdr start-event))))) (start-event-window (car (car (cdr start-event)))) - event mouse x left right edges wconfig growth + event mouse x left right edges growth (which-side (or (cdr (assq 'vertical-scroll-bars (frame-parameters start-event-frame))) 'right))) @@ -835,7 +835,9 @@ at the same position." ((eq action 'mouse-face) (and (mouse-posn-property pos 'mouse-face) t)) ((functionp action) - (funcall action pos)) + ;; FIXME: This is wrong if the click is in a different buffer. + ;; Should we instead decide that `action' takes a `posn'? + (funcall action (if (consp pos) (posn-point pos) pos))) (t action)))) (defun mouse-fixup-help-message (msg) |