Mercurial > hg > xemacs-beta

comparison lisp/mouse.el @ 479:52626a2f02ef

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-04-20 11:31:53 by ben] about/news changes, already in 21.4
author ben
date Fri, 20 Apr 2001 11:32:27 +0000
parents 1ccc32a20af4
children 54fa1a5c2d12
comparison
equal deleted inserted replaced
478:09855058eefc 479:52626a2f02ef
469 been created during the operation of `mouse-track'. 469 been created during the operation of `mouse-track'.
470 470
471 Unlike all of the other mouse-track hooks, this is a \"normal\" 471 Unlike all of the other mouse-track hooks, this is a \"normal\"
472 hook: the hook functions are called with no arguments, and 472 hook: the hook functions are called with no arguments, and
473 all hook functions are called regardless of their return 473 all hook functions are called regardless of their return
474 values.") 474 values.
475
476 This function is called with the buffer where the mouse was clicked
477 set to the current buffer, unless that buffer was killed.")
475 478
476 (defcustom mouse-track-multi-click-time 400 479 (defcustom mouse-track-multi-click-time 400
477 "*Maximum number of milliseconds allowed between clicks for a multi-click. 480 "*Maximum number of milliseconds allowed between clicks for a multi-click.
478 See `mouse-track-click-hook'." 481 See `mouse-track-click-hook'."
479 :type 'integer 482 :type 'integer
709 (dispatch-event event)))) 712 (dispatch-event event))))
710 ;; protected 713 ;; protected
711 (if mouse-track-timeout-id 714 (if mouse-track-timeout-id
712 (disable-timeout mouse-track-timeout-id)) 715 (disable-timeout mouse-track-timeout-id))
713 (setq mouse-track-timeout-id nil) 716 (setq mouse-track-timeout-id nil)
714 (and buffer 717 (and (buffer-live-p buffer)
715 (save-excursion 718 (save-excursion
716 (set-buffer buffer) 719 (set-buffer buffer)
717 (run-hooks 'mouse-track-cleanup-hook)))))) 720 (run-hooks 'mouse-track-cleanup-hook))))))
718 721
719 722