Mercurial > emacs
changeset 61541:a576ac1919b9
(xterm-mouse-mode): Change :init value.
| author | Luc Teirlinck <teirllm@auburn.edu> |
|---|---|
| date | Wed, 13 Apr 2005 22:22:40 +0000 |
| parents | 6aef98a62439 |
| children | e04d48765c2e |
| files | lisp/xt-mouse.el |
| diffstat | 1 files changed, 4 insertions(+), 16 deletions(-) [+] |
line wrap: on
line diff
--- 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)