# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 963167746 0
# Node ID 76b25f049c1e0c9c728a47e8efdcb9ef2fab55dd
# Parent  f67697912c81bcf60a8467f823b3f6f6998a07f2
(mouse-drag-region): Use functionp rather than fboundp.

diff -r f67697912c81 -r 76b25f049c1e lisp/mouse.el
--- a/lisp/mouse.el	Sun Jul 09 09:33:41 2000 +0000
+++ b/lisp/mouse.el	Sun Jul 09 18:35:46 2000 +0000
@@ -677,7 +677,7 @@
 			 (mouse-set-region-1))))
 	      (delete-overlay mouse-drag-overlay)
 	      ;; Run the binding of the terminating up-event.
-	      (when (and (fboundp fun)
+	      (when (and (functionp fun)
 			 (= start-hscroll (window-hscroll start-window)))
 		(setq unread-command-events
 		      (cons event unread-command-events)))))