From 4c9afcbe57dcdd6fbf83f11ff8189cec8353e0d1 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 15 Jan 1996 05:12:49 +0000 Subject: [PATCH] (mouse-drag-region, mouse-drag-secondary): Bind echo-keystrokes to 0. --- lisp/mouse.el | 11 +++++++---- 1 file 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 @@ ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs; see the file COPYING. If not, write to -;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. +;; along with GNU Emacs; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. ;;; Commentary: @@ -488,7 +489,8 @@ In Transient Mark mode, the highlighting remains once you release the mouse button. Otherwise, it does not." (interactive "e") (mouse-minibuffer-check start-event) - (let* ((start-posn (event-start start-event)) + (let* ((echo-keystrokes 0) + (start-posn (event-start start-event)) (start-point (posn-point start-posn)) (start-window (posn-window start-posn)) (start-frame (window-frame start-window)) @@ -916,7 +918,8 @@ Highlight the drag area as you move the mouse. This must be bound to a button-down mouse event." (interactive "e") (mouse-minibuffer-check start-event) - (let* ((start-posn (event-start start-event)) + (let* ((echo-keystrokes 0) + (start-posn (event-start start-event)) (start-point (posn-point start-posn)) (start-window (posn-window start-posn)) (start-frame (window-frame start-window)) -- 2.39.2