diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-01-15 05:12:49 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-01-15 05:12:49 +0000 |
| commit | 35343759aa3d1465e31eb2027c379b8d63f21c00 (patch) | |
| tree | e76eb33a51d9caa9287200103ab048afbf873486 | |
| parent | f505bcd511e542de2a96f2a53de14694ce15e879 (diff) | |
| download | emacs-35343759aa3d1465e31eb2027c379b8d63f21c00.tar.gz | |
(mouse-drag-region, mouse-drag-secondary): Bind echo-keystrokes to 0.
| -rw-r--r-- | lisp/mouse.el | 11 |
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 @@ ;; 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)) |