Mercurial > emacs
changeset 54867:c59162a8d0f8
(mouse-set-point): Use it.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 14 Apr 2004 17:30:17 +0000 |
| parents | 47cdc4f7ee17 |
| children | a50d004dc072 |
| files | lisp/mouse.el |
| diffstat | 1 files changed, 2 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mouse.el Wed Apr 14 17:28:33 2004 +0000 +++ b/lisp/mouse.el Wed Apr 14 17:30:17 2004 +0000 @@ -1,6 +1,6 @@ ;;; mouse.el --- window system-independent mouse support -;; Copyright (C) 1993, 1994, 1995, 1999, 2000, 2001 +;; Copyright (C) 1993, 94, 95, 1999, 2000, 01, 2004 ;; Free Software Foundation, Inc. ;; Maintainer: FSF @@ -577,12 +577,7 @@ (mouse-minibuffer-check event) ;; Use event-end in case called from mouse-drag-region. ;; If EVENT is a click, event-end and event-start give same value. - (let ((posn (event-end event))) - (if (not (windowp (posn-window posn))) - (error "Cursor not in text area of window")) - (select-window (posn-window posn)) - (if (numberp (posn-point posn)) - (goto-char (posn-point posn))))) + (posn-set-point (event-end event))) (defvar mouse-last-region-beg nil) (defvar mouse-last-region-end nil)