diff options
| author | Luc Teirlinck <teirllm@auburn.edu> | 2005-04-13 22:22:40 +0000 |
|---|---|---|
| committer | Luc Teirlinck <teirllm@auburn.edu> | 2005-04-13 22:22:40 +0000 |
| commit | dc6ed0370d23f83dbd9fa83e2eb0017a4bc3bbbd (patch) | |
| tree | 4bf48ed31e64d64b6a432883f5b708894cb1ac3a /lisp/xt-mouse.el | |
| parent | 4d727d1a8cac2c62f96b8efef8cd749d1e2539d5 (diff) | |
| download | emacs-dc6ed0370d23f83dbd9fa83e2eb0017a4bc3bbbd.tar.gz | |
(xterm-mouse-mode): Change :init value.
Diffstat (limited to 'lisp/xt-mouse.el')
| -rw-r--r-- | lisp/xt-mouse.el | 20 |
1 files 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) |