diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-04-14 17:30:17 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-04-14 17:30:17 +0000 |
| commit | 541a44d22d7d9d430d5d464bd141eb99439b9716 (patch) | |
| tree | df24a0101648a4764747ac0c35bb7972245def91 | |
| parent | 17f53ffa0f03149217fb382bbadf8ffd917008bb (diff) | |
| download | emacs-541a44d22d7d9d430d5d464bd141eb99439b9716.tar.gz | |
(mouse-set-point): Use it.
| -rw-r--r-- | lisp/mouse.el | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index 9b80ccc0cf5..faa10e842d3 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -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 @@ This should be bound to a mouse click event type." (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) |