Mercurial > emacs
changeset 16318:86f1da650461
(mouse-drag-secondary): Make sure to return nil
if we don't make a selection.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 25 Sep 1996 03:27:04 +0000 |
| parents | 763b3b143ed6 |
| children | 8bd3981bd342 |
| files | lisp/mouse.el |
| diffstat | 1 files changed, 4 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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)