Mercurial > emacs
changeset 21426:4b4a4e32ffef
(mouse-save-then-kill): Get point-before-scroll
from the right buffer.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 08 Apr 1998 07:22:05 +0000 |
| parents | 69491a9294a4 |
| children | b5a5ac474741 |
| files | lisp/mouse.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mouse.el Wed Apr 08 07:15:51 1998 +0000 +++ b/lisp/mouse.el Wed Apr 08 07:22:05 1998 +0000 @@ -922,7 +922,9 @@ 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: