diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-04-08 07:22:05 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-04-08 07:22:05 +0000 |
| commit | 53016bead4141cb0e61d98e816ff818db2f1bc99 (patch) | |
| tree | a319679a6a688272e105210492b1c6e92656019c /lisp/mouse.el | |
| parent | c9e5d3d141b589351c1a54391956ad7b459eb78f (diff) | |
| download | emacs-53016bead4141cb0e61d98e816ff818db2f1bc99.tar.gz | |
(mouse-save-then-kill): Get point-before-scroll
from the right buffer.
Diffstat (limited to 'lisp/mouse.el')
| -rw-r--r-- | lisp/mouse.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index e1b7e51e6a1..8d3c775c7ec 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -922,7 +922,9 @@ selection through the word or line clicked on. If you do this again in a different position, it extends the selection again. If you do this twice in the same position, the selection is killed." (interactive "e") - (let ((before-scroll point-before-scroll)) + (let ((before-scroll + (with-current-buffer (window-buffer (posn-window (event-start click))) + point-before-scroll))) (mouse-minibuffer-check click) (let ((click-posn (posn-point (event-start click))) ;; Don't let a subsequent kill command append to this one: |