Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/mouse.el	Thu Apr 19 06:59:50 2001 +0000
+++ b/lisp/mouse.el	Fri Apr 20 11:32:27 2001 +0000
@@ -471,7 +471,10 @@
 Unlike all of the other mouse-track hooks, this is a \"normal\"
 hook: the hook functions are called with no arguments, and
 all hook functions are called regardless of their return
-values.")
+values.
+
+This function is called with the buffer where the mouse was clicked
+set to the current buffer, unless that buffer was killed.")
 
 (defcustom mouse-track-multi-click-time 400
   "*Maximum number of milliseconds allowed between clicks for a multi-click.
@@ -711,7 +714,7 @@
       (if mouse-track-timeout-id
 	  (disable-timeout mouse-track-timeout-id))
       (setq mouse-track-timeout-id nil)
-      (and buffer
+      (and (buffer-live-p buffer)
 	   (save-excursion
 	     (set-buffer buffer)
 	     (run-hooks 'mouse-track-cleanup-hook))))))