From: Luc Teirlinck <teirllm@auburn.edu>
Date: Mon, 18 Apr 2005 00:55:42 +0000 (+0000)
Subject: (command-line): No longer enable Xterm Mouse mode by default in
X-Git-Tag: ttn-vms-21-2-B4~940
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b7e325a809f1590a892800723e40eab71f855991;p=emacs.git

(command-line): No longer enable Xterm Mouse mode by default in
terminals compatible with xterm.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index 1919c2837f8..a3d69564cfd 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -755,16 +755,6 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
               (not (fboundp 'x-show-tip)))
     (tooltip-mode 1))
 
-  ;; If you change the code below, you need to also change the
-  ;; corresponding code in the xterm-mouse-mode defcustom.  The two need
-  ;; to be equivalent under all conditions, or Custom will get confused.
-  (unless (or noninteractive
-	      window-system)
-    (let ((term (getenv "TERM")))
-      (and term
-	   (string-match "^\\(xterm\\|rxvt\\|dtterm\\|eterm\\)" term)
-	   (xterm-mouse-mode 1))))
-
   ;; Register default TTY colors for the case the terminal hasn't a
   ;; terminal init file.
   (unless (memq window-system '(x w32))