# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 843622024 0
# Node ID 86f1da65046178eeeed8b07010cd03ae63570109
# Parent  763b3b143ed6070d74fe5fa21e166c4bd24980b0
(mouse-drag-secondary): Make sure to return nil
if we don't make a selection.

diff -r 763b3b143ed6 -r 86f1da650461 lisp/mouse.el
--- a/lisp/mouse.el	Wed Sep 25 03:23:03 1996 +0000
+++ b/lisp/mouse.el	Wed Sep 25 03:27:04 1996 +0000
@@ -1021,7 +1021,8 @@
 (defun mouse-drag-secondary (start-event)
   "Set the secondary selection to the text that the mouse is dragged over.
 Highlight the drag area as you move the mouse.
-This must be bound to a button-down mouse event."
+This must be bound to a button-down mouse event.
+The function returns a non-nil value if it creates a secondary selection."
   (interactive "e")
   (mouse-minibuffer-check start-event)
   (let* ((echo-keystrokes 0)
@@ -1092,9 +1093,6 @@
                                        mouse-secondary-overlay start-point)))))))))
 
 	(if (consp event)
-;;;		 (eq (get (event-basic-type event) 'event-kind) 'mouse-click)
-;;;		 (eq (posn-window (event-end event)) start-window)
-;;;		 (numberp (posn-point (event-end event)))
 	    (if (marker-position mouse-secondary-start)
 		(save-window-excursion
 		  (delete-overlay mouse-secondary-overlay)
@@ -1102,7 +1100,8 @@
 		  (select-window start-window)
 		  (save-excursion
 		    (goto-char mouse-secondary-start)
-		    (sit-for 1)))
+		    (sit-for 1)
+		    nil))
 	      (x-set-selection
 	       'SECONDARY
 	       (buffer-substring (overlay-start mouse-secondary-overlay)