[Emacs-diffs] Changes to emacs/lisp/xt-mouse.el

[Luc Teirlinck]

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