[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/xt-mouse.el
From: |
Luc Teirlinck |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/xt-mouse.el |
Date: |
Tue, 12 Apr 2005 19:05:22 -0400 |
Index: emacs/lisp/xt-mouse.el
diff -c emacs/lisp/xt-mouse.el:1.25 emacs/lisp/xt-mouse.el:1.26
*** emacs/lisp/xt-mouse.el:1.25 Mon Apr 4 01:13:59 2005
--- emacs/lisp/xt-mouse.el Tue Apr 12 23:05:22 2005
***************
*** 156,165 ****
With prefix arg, turn XTerm mouse mode on iff arg is positive.
Turn it on to use Emacs mouse commands, and off to use xterm mouse commands.
! This works in terminal emulators compatible with xterm. Only single clicks
! are supported. When turned on, the normal xterm mouse functionality is still
! available by holding down the SHIFT key while pressing the mouse button."
! nil " Mouse" nil :global t :group 'mouse
(if xterm-mouse-mode
;; Turn it on
(unless window-system
--- 156,188 ----
With prefix arg, turn XTerm mouse mode on iff arg is positive.
Turn it on to use Emacs mouse commands, and off to use xterm mouse commands.
! This works in terminal emulators compatible with xterm. It only
! works for simple uses of the mouse. Basically, only non-modified
! single clicks are supported. When turned on, the normal xterm
! mouse functionality for such clicks is still available by holding
! down the SHIFT key while pressing the mouse button."
! :global t :group 'mouse
! ;; Do not change the :init-value below, without corresponding
! ;; changes in the related code in startup.el.
! :init-value (unless (or noninteractive
! window-system
! (null term-file-prefix))
! (let ((term (getenv "TERM"))
! hyphend)
! (while
! (and term
! (not (load (concat term-file-prefix term) t t)))
! ;; Strip off last hyphen and what follows, then
! ;; try again
! (setq term
! (if (setq hyphend
! (string-match "[-_][^-_]+$" term))
! (substring term 0 hyphend)
! nil)))
! (and term
! (string-match "^\\(xterm\\|rxvt\\|dtterm\\|eterm\\)"
! term)
! t)))
(if xterm-mouse-mode
;; Turn it on
(unless window-system