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

[Nick Roberts]

Index: emacs/lisp/xt-mouse.el
diff -c emacs/lisp/xt-mouse.el:1.30 emacs/lisp/xt-mouse.el:1.31
*** emacs/lisp/xt-mouse.el:1.30 Sat Aug  6 22:13:43 2005
--- emacs/lisp/xt-mouse.el      Mon Nov 28 05:38:49 2005
***************
*** 146,155 ****
  
      (setq xterm-mouse-x x
          xterm-mouse-y y)
!     (if w
!       (list mouse (posn-at-x-y (- x left) (- y top) w t))
!       (list mouse
!           (append (list nil 'menu-bar) (nthcdr 2 (posn-at-x-y x y w t)))))))
  
  ;;;###autoload
  (define-minor-mode xterm-mouse-mode
--- 146,157 ----
  
      (setq xterm-mouse-x x
          xterm-mouse-y y)
!     (setq
!      last-input-event
!      (if w
!        (list mouse (posn-at-x-y (- x left) (- y top) w t))
!        (list mouse
!            (append (list nil 'menu-bar) (nthcdr 2 (posn-at-x-y x y w t))))))))
  
  ;;;###autoload
  (define-minor-mode xterm-mouse-mode