From 3e4c23e3533ec96077e380f2693c7892bb443fcb Mon Sep 17 00:00:00 2001 From: Luc Teirlinck Date: Tue, 12 Apr 2005 23:06:44 +0000 Subject: [PATCH] (command-line): Enable Xterm Mouse mode by default. --- lisp/startup.el | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/lisp/startup.el b/lisp/startup.el index fddb8e9904b..e27f86b422b 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -746,6 +746,9 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'." (custom-reevaluate-setting 'blink-cursor-mode) (custom-reevaluate-setting 'normal-erase-is-backspace) + ;; If you change the code below, you need to also change the + ;; corresponding code in the tooltip-mode defcustom. The two need + ;; to be equivalent under all conditions, or Custom will get confused. (unless (or noninteractive emacs-basic-display (not (display-graphic-p)) @@ -963,6 +966,10 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'." ;; Load library for our terminal type. ;; User init file can set term-file-prefix to nil to prevent this. + + ;; If you change the code below, you need to also change the + ;; corresponding code in the xterm-mouse-mode defcustom. The two need + ;; to be equivalent under all conditions, or Custom will get confused. (unless (or noninteractive window-system (null term-file-prefix)) @@ -974,7 +981,10 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'." (setq term (if (setq hyphend (string-match "[-_][^-_]+$" term)) (substring term 0 hyphend) - nil))))) + nil))) + (and term + (string-match "^\\(xterm\\|rxvt\\|dtterm\\|eterm\\)" term) + (xterm-mouse-mode 1)))) ;; Update the out-of-memory error message based on user's key bindings ;; for save-some-buffers. -- 2.39.2