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

[Miles Bader]

Index: emacs/lisp/xt-mouse.el
diff -c emacs/lisp/xt-mouse.el:1.17 emacs/lisp/xt-mouse.el:1.18
*** emacs/lisp/xt-mouse.el:1.17 Wed Aug  7 17:46:49 2002
--- emacs/lisp/xt-mouse.el      Tue Feb  4 07:16:18 2003
***************
*** 65,71 ****
                                            (vector down-where down-command)
                                          (vector down-command))))
             (is-click (string-match "^mouse" (symbol-name (car down)))))
!           
        (unless is-click
          (unless (and (eq (read-char) ?\e)
                       (eq (read-char) ?\[)
--- 65,71 ----
                                            (vector down-where down-command)
                                          (vector down-command))))
             (is-click (string-match "^mouse" (symbol-name (car down)))))
! 
        (unless is-click
          (unless (and (eq (read-char) ?\e)
                       (eq (read-char) ?\[)
***************
*** 140,146 ****
                                       (max 0 (1- (window-hscroll)))))
                    (point))
                where))
!        (mouse (intern 
                 ;; For buttons > 3, the release-event looks
                 ;; differently (see xc/programs/xterm/button.c,
                 ;; function EditorButton), and there seems to come in
--- 140,146 ----
                                       (max 0 (1- (window-hscroll)))))
                    (point))
                where))
!        (mouse (intern
                 ;; For buttons > 3, the release-event looks
                 ;; differently (see xc/programs/xterm/button.c,
                 ;; function EditorButton), and there seems to come in