# HG changeset patch
# User Luc Teirlinck <teirllm@auburn.edu>
# Date 1113347204 0
# Node ID 7473921df065e5bfa25a8ac2f02c56fcb9451213
# Parent  a53097b105b0aeb247c0fbd007f89e9a1b630aca
(command-line): Enable Xterm Mouse mode by default.

diff -r a53097b105b0 -r 7473921df065 lisp/startup.el
--- a/lisp/startup.el	Tue Apr 12 23:05:22 2005 +0000
+++ b/lisp/startup.el	Tue Apr 12 23:06:44 2005 +0000
@@ -746,6 +746,9 @@
   (custom-reevaluate-setting 'blink-cursor-mode)
   (custom-reevaluate-setting 'normal-erase-is-backspace)
 
+  ;; If you change the code below, you need to also change the
+  ;; corresponding code in the tooltip-mode defcustom.  The two need
+  ;; to be equivalent under all conditions, or Custom will get confused.
   (unless (or noninteractive
 	      emacs-basic-display
               (not (display-graphic-p))
@@ -963,6 +966,10 @@
 
   ;; Load library for our terminal type.
   ;; User init file can set term-file-prefix to nil to prevent this.
+
+  ;; 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
               (null term-file-prefix))
@@ -974,7 +981,10 @@
         (setq term
               (if (setq hyphend (string-match "[-_][^-_]+$" term))
                   (substring term 0 hyphend)
-                nil)))))
+                nil)))
+      (and term
+	   (string-match "^\\(xterm\\|rxvt\\|dtterm\\|eterm\\)" term)
+	   (xterm-mouse-mode 1))))
 
   ;; Update the out-of-memory error message based on user's key bindings
   ;; for save-some-buffers.