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

[Stefan Monnier]

Index: emacs/lisp/xt-mouse.el
diff -c emacs/lisp/xt-mouse.el:1.15 emacs/lisp/xt-mouse.el:1.16
*** emacs/lisp/xt-mouse.el:1.15 Tue Dec  4 11:12:48 2001
--- emacs/lisp/xt-mouse.el      Thu Apr 11 23:33:20 2002
***************
*** 106,112 ****
    "Position of last xterm mouse event relative to the frame.")
  
  ;; Indicator for the xterm-mouse mode.
- (defvar xterm-mouse-mode nil)
  
  (defun xterm-mouse-position-function (pos)
    "Bound to `mouse-position-function' in XTerm mouse mode."
--- 106,111 ----
***************
*** 159,199 ****
          (list window pos point
                (/ (nth 2 (current-time)) 1000)))))
  
- (or (assq 'xterm-mouse-mode minor-mode-alist)
-     (setq minor-mode-alist
-         (cons '(xterm-mouse-mode (" Mouse")) minor-mode-alist)))
- 
  ;;;###autoload
! (defun xterm-mouse-mode (arg)
    "Toggle XTerm mouse mode.
  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."
!   (interactive "P")
!   (if (or (and (null arg) xterm-mouse-mode)
!         (<= (prefix-numeric-value arg) 0))
!       ;; Turn it off
!       (if xterm-mouse-mode
!         (progn
!           (turn-off-xterm-mouse-tracking)
!           (setq xterm-mouse-mode nil
!                 mouse-position-function nil)
!           (set-buffer-modified-p (buffer-modified-p))))
!     ;;Turn it on
!     (unless (or window-system xterm-mouse-mode)
!       (setq xterm-mouse-mode t
!           mouse-position-function #'xterm-mouse-position-function)
!       (turn-on-xterm-mouse-tracking)
!       (set-buffer-modified-p (buffer-modified-p)))))
  
  (defun turn-on-xterm-mouse-tracking ()
    "Enable Emacs mouse tracking in xterm."
    (if xterm-mouse-mode
        (send-string-to-terminal "\e[?1000h")))
  
! (defun turn-off-xterm-mouse-tracking ()
    "Disable Emacs mouse tracking in xterm."
!   (if xterm-mouse-mode
        (send-string-to-terminal "\e[?1000l")))
  
  ;; Restore normal mouse behaviour outside Emacs.
--- 158,187 ----
          (list window pos point
                (/ (nth 2 (current-time)) 1000)))))
  
  ;;;###autoload
! (define-minor-mode xterm-mouse-mode
    "Toggle XTerm mouse mode.
  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."
!   nil " Mouse" nil
!   (if xterm-mouse-mode
!       ;; Turn it on
!       (unless window-system
!       (setq mouse-position-function #'xterm-mouse-position-function)
!       (turn-on-xterm-mouse-tracking))
!     ;; Turn it off
!     (turn-off-xterm-mouse-tracking 'force)
!     (setq mouse-position-function nil)))
  
  (defun turn-on-xterm-mouse-tracking ()
    "Enable Emacs mouse tracking in xterm."
    (if xterm-mouse-mode
        (send-string-to-terminal "\e[?1000h")))
  
! (defun turn-off-xterm-mouse-tracking (&optional force)
    "Disable Emacs mouse tracking in xterm."
!   (if (or force xterm-mouse-mode)
        (send-string-to-terminal "\e[?1000l")))
  
  ;; Restore normal mouse behaviour outside Emacs.