/[emacs]/emacs/lisp/xt-mouse.el
ViewVC logotype

Diff of /emacs/lisp/xt-mouse.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.30 by ttn, Sat Aug 6 22:13:43 2005 UTC revision 1.31 by nickrob, Mon Nov 28 05:38:49 2005 UTC
# Line 146  Line 146 
146    
147      (setq xterm-mouse-x x      (setq xterm-mouse-x x
148            xterm-mouse-y y)            xterm-mouse-y y)
149      (if w      (setq
150          (list mouse (posn-at-x-y (- x left) (- y top) w t))       last-input-event
151        (list mouse       (if w
152              (append (list nil 'menu-bar) (nthcdr 2 (posn-at-x-y x y w t)))))))           (list mouse (posn-at-x-y (- x left) (- y top) w t))
153           (list mouse
154                 (append (list nil 'menu-bar) (nthcdr 2 (posn-at-x-y x y w t))))))))
155    
156  ;;;###autoload  ;;;###autoload
157  (define-minor-mode xterm-mouse-mode  (define-minor-mode xterm-mouse-mode

Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26