[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.26 emacs/lisp/xt-mouse.el:1.27
*** emacs/lisp/xt-mouse.el:1.26 Tue Apr 12 23:05:22 2005
--- emacs/lisp/xt-mouse.el      Wed Apr 13 22:22:40 2005
***************
*** 162,184 ****
  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)
--- 162,172 ----
  mouse functionality for such clicks is still available by holding
  down the SHIFT key while pressing the mouse button."
    :global t :group 'mouse
!    ;; If you change the code below, you also need to change the
!    ;; corresponding code in startup.el.
    :init-value (unless (or noninteractive
!                         window-system)
!               (let ((term (getenv "TERM")))
                  (and term
                       (string-match "^\\(xterm\\|rxvt\\|dtterm\\|eterm\\)"
                                     term)