Commit 3e4c23e3 authored by Luc Teirlinck's avatar Luc Teirlinck
Browse files

(command-line): Enable Xterm Mouse mode by default.

parent 9001354f
...@@ -746,6 +746,9 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'." ...@@ -746,6 +746,9 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
(custom-reevaluate-setting 'blink-cursor-mode) (custom-reevaluate-setting 'blink-cursor-mode)
(custom-reevaluate-setting 'normal-erase-is-backspace) (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 (unless (or noninteractive
emacs-basic-display emacs-basic-display
(not (display-graphic-p)) (not (display-graphic-p))
...@@ -963,6 +966,10 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'." ...@@ -963,6 +966,10 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
;; Load library for our terminal type. ;; Load library for our terminal type.
;; User init file can set term-file-prefix to nil to prevent this. ;; 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 (unless (or noninteractive
window-system window-system
(null term-file-prefix)) (null term-file-prefix))
...@@ -974,7 +981,10 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'." ...@@ -974,7 +981,10 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
(setq term (setq term
(if (setq hyphend (string-match "[-_][^-_]+$" term)) (if (setq hyphend (string-match "[-_][^-_]+$" term))
(substring term 0 hyphend) (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 ;; Update the out-of-memory error message based on user's key bindings
;; for save-some-buffers. ;; for save-some-buffers.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment