Mercurial > emacs
changeset 14179:7db5b89b78b6
(mouse-drag-region, mouse-drag-secondary): Bind echo-keystrokes to 0.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 15 Jan 1996 05:12:49 +0000 |
| parents | 4c8fdbefbb58 |
| children | ce32f656d8b2 |
| files | lisp/mouse.el |
| diffstat | 1 files changed, 7 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mouse.el Mon Jan 15 05:11:43 1996 +0000 +++ b/lisp/mouse.el Mon Jan 15 05:12:49 1996 +0000 @@ -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 @@ 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 @@ 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))