Mercurial > emacs

changeset 61514:7473921df065

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(command-line): Enable Xterm Mouse mode by default.
author Luc Teirlinck <teirllm@auburn.edu>
date Tue, 12 Apr 2005 23:06:44 +0000
parents a53097b105b0
children 0d659f1010a4
files lisp/startup.el
diffstat 1 files changed, 11 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/startup.el	Tue Apr 12 23:05:22 2005 +0000
+++ b/lisp/startup.el	Tue Apr 12 23:06:44 2005 +0000
@@ -746,6 +746,9 @@
   (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 @@
 
   ;; 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 @@
         (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.