Mercurial > emacs
comparison lisp/startup.el @ 61610:a473e4d3af75
(command-line): No longer enable Xterm Mouse mode by default in
terminals compatible with xterm.
author | Luc Teirlinck <teirllm@auburn.edu> |
---|---|
date | Mon, 18 Apr 2005 00:55:42 +0000 |
parents | 3a5e293553a1 |
children | d9587a02572b 2c2b97b30980 e1fbb019c538 |
comparison
equal
deleted
inserted
replaced
61609:143ba4d2beac | 61610:a473e4d3af75 |
---|---|
753 emacs-basic-display | 753 emacs-basic-display |
754 (not (display-graphic-p)) | 754 (not (display-graphic-p)) |
755 (not (fboundp 'x-show-tip))) | 755 (not (fboundp 'x-show-tip))) |
756 (tooltip-mode 1)) | 756 (tooltip-mode 1)) |
757 | 757 |
758 ;; If you change the code below, you need to also change the | |
759 ;; corresponding code in the xterm-mouse-mode defcustom. The two need | |
760 ;; to be equivalent under all conditions, or Custom will get confused. | |
761 (unless (or noninteractive | |
762 window-system) | |
763 (let ((term (getenv "TERM"))) | |
764 (and term | |
765 (string-match "^\\(xterm\\|rxvt\\|dtterm\\|eterm\\)" term) | |
766 (xterm-mouse-mode 1)))) | |
767 | |
768 ;; Register default TTY colors for the case the terminal hasn't a | 758 ;; Register default TTY colors for the case the terminal hasn't a |
769 ;; terminal init file. | 759 ;; terminal init file. |
770 (unless (memq window-system '(x w32)) | 760 (unless (memq window-system '(x w32)) |
771 ;; We do this regardles of whether the terminal supports colors | 761 ;; We do this regardles of whether the terminal supports colors |
772 ;; or not, since they can switch that support on or off in | 762 ;; or not, since they can switch that support on or off in |