aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/mouse.el11
1 files changed, 7 insertions, 4 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el
index 72e2cda261b..f21f6baf2fc 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -18,8 +18,9 @@
18;; GNU General Public License for more details. 18;; GNU General Public License for more details.
19 19
20;; You should have received a copy of the GNU General Public License 20;; You should have received a copy of the GNU General Public License
21;; along with GNU Emacs; see the file COPYING. If not, write to 21;; along with GNU Emacs; see the file COPYING. If not, write to the
22;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 22;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23;; Boston, MA 02111-1307, USA.
23 24
24;;; Commentary: 25;;; Commentary:
25 26
@@ -488,7 +489,8 @@ In Transient Mark mode, the highlighting remains once you
488release the mouse button. Otherwise, it does not." 489release the mouse button. Otherwise, it does not."
489 (interactive "e") 490 (interactive "e")
490 (mouse-minibuffer-check start-event) 491 (mouse-minibuffer-check start-event)
491 (let* ((start-posn (event-start start-event)) 492 (let* ((echo-keystrokes 0)
493 (start-posn (event-start start-event))
492 (start-point (posn-point start-posn)) 494 (start-point (posn-point start-posn))
493 (start-window (posn-window start-posn)) 495 (start-window (posn-window start-posn))
494 (start-frame (window-frame start-window)) 496 (start-frame (window-frame start-window))
@@ -916,7 +918,8 @@ Highlight the drag area as you move the mouse.
916This must be bound to a button-down mouse event." 918This must be bound to a button-down mouse event."
917 (interactive "e") 919 (interactive "e")
918 (mouse-minibuffer-check start-event) 920 (mouse-minibuffer-check start-event)
919 (let* ((start-posn (event-start start-event)) 921 (let* ((echo-keystrokes 0)
922 (start-posn (event-start start-event))
920 (start-point (posn-point start-posn)) 923 (start-point (posn-point start-posn))
921 (start-window (posn-window start-posn)) 924 (start-window (posn-window start-posn))
922 (start-frame (window-frame start-window)) 925 (start-frame (window-frame start-window))