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

Diff of /emacs/lisp/mouse.el

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

revision 1.280 by monnier, Thu Sep 22 21:30:58 2005 UTC revision 1.281 by cyd, Tue Oct 11 15:30:31 2005 UTC
# Line 1026  at the same position." Line 1026  at the same position."
1026                                      (and (integerp t0) (integerp t1)                                      (and (integerp t0) (integerp t1)
1027                                           (if (> mouse-1-click-follows-link 0)                                           (if (> mouse-1-click-follows-link 0)
1028                                               (<= (- t1 t0) mouse-1-click-follows-link)                                               (<= (- t1 t0) mouse-1-click-follows-link)
1029                                             (< (- t0 t1) mouse-1-click-follows-link)))))                                             (< (- t0 t1) mouse-1-click-follows-link))))))))
                               (or (not double-click-time)  
                                   (sit-for 0 (if (integerp double-click-time)  
                                                  double-click-time 500) t)))))  
1030                      (if (or (vectorp on-link) (stringp on-link))                      (if (or (vectorp on-link) (stringp on-link))
1031                          (setq event (aref on-link 0))                          (setq event (aref on-link 0))
1032                        (setcar event 'mouse-2)))                        (setcar event 'mouse-2)))

Legend:
Removed from v.1.280  
changed lines
  Added in v.1.281

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