# HG changeset patch
# User Luc Teirlinck <teirllm@auburn.edu>
# Date 1113430960 0
# Node ID a576ac1919b92f055ed282bce4f208d05b84c2cb
# Parent  6aef98a624397f9cc018cc855bbfa08c47cbd781
(xterm-mouse-mode):  Change :init value.

diff -r 6aef98a62439 -r a576ac1919b9 lisp/xt-mouse.el
--- a/lisp/xt-mouse.el	Wed Apr 13 22:20:05 2005 +0000
+++ b/lisp/xt-mouse.el	Wed Apr 13 22:22:40 2005 +0000
@@ -162,23 +162,11 @@
 mouse functionality for such clicks is still available by holding
 down the SHIFT key while pressing the mouse button."
   :global t :group 'mouse
-  ;; Do not change the :init-value below, without corresponding
-  ;; changes in the related code in startup.el.
+   ;; If you change the code below, you also need to change the
+   ;; corresponding code in startup.el.
   :init-value (unless (or noninteractive
-			  window-system
-			  (null term-file-prefix))
-		(let ((term (getenv "TERM"))
-		      hyphend)
-		  (while
-		      (and term
-			   (not (load (concat term-file-prefix term) t t)))
-		    ;; Strip off last hyphen and what follows, then
-		    ;; try again
-		    (setq term
-			  (if (setq hyphend
-				    (string-match "[-_][^-_]+$" term))
-			      (substring term 0 hyphend)
-			    nil)))
+			  window-system)
+		(let ((term (getenv "TERM")))
 		  (and term
 		       (string-match "^\\(xterm\\|rxvt\\|dtterm\\|eterm\\)"
 				     term)