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