From dc6ed0370d23f83dbd9fa83e2eb0017a4bc3bbbd Mon Sep 17 00:00:00 2001 From: Luc Teirlinck Date: Wed, 13 Apr 2005 22:22:40 +0000 Subject: [PATCH] (xterm-mouse-mode): Change :init value. --- lisp/xt-mouse.el | 20 ++++---------------- 1 file changed, 4 insertions(+), 16 deletions(-) diff --git a/lisp/xt-mouse.el b/lisp/xt-mouse.el index 90e127487f5..62710e752a7 100644 --- a/lisp/xt-mouse.el +++ b/lisp/xt-mouse.el @@ -162,23 +162,11 @@ single clicks are supported. When turned on, the normal xterm 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)