* isearch.el (isearch-frames-exist): This isn't what we want -

[gnu-emacs] / lisp / mouse.el

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 0cc2aacc6737c771efc724cf704448d46d3604e0..4c1908b220b77725a64cd0a50454832298fadcab 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -84,6 +84,16 @@ This must be bound to a mouse click."
   (interactive "e")
   (delete-window (posn-window (event-start click))))
 
+(defun mouse-tear-off-window (click)
+  "Delete the window clicked on, and create a new frame displaying its buffer."
+  (interactive "e")
+  (let* ((window (posn-window (event-start click)))
+        (buf (window-buffer window))
+        (frame (new-frame)))
+    (select-frame frame)
+    (switch-to-buffer buf)
+    (delete-window window)))
+
 (defun mouse-delete-other-windows ()
   "Delete all window except the one you click on."
   (interactive "@")
@@ -114,6 +124,20 @@ This must be bound to a mouse click."
     (if (numberp (posn-point posn))
        (goto-char (posn-point posn)))))
 
+(defun mouse-set-region (click)
+  "Set the region to the text that the mouse is dragged over.
+This must be bound to a mouse click."
+  (interactive "e")
+  (let ((posn (event-start click))
+       (end (event-end click)))
+    (select-window (posn-window posn))
+    (if (numberp (posn-point posn))
+       (goto-char (posn-point posn)))
+    (sit-for 1)
+    (push-mark)
+    (if (numberp (posn-point end))
+       (goto-char (posn-point end)))))
+
 (defun mouse-set-mark (click)
   "Set mark at the position clicked on with the mouse.
 Display cursor at that position for a second.
@@ -582,7 +606,7 @@ This does not delete the region; it acts like \\[kill-ring-save]."
 ;; are properly implemented.
 (global-set-key   [mouse-1]    'mouse-set-point)
 
-(global-set-key   [drag-mouse-1]       'mouse-set-mark)
+(global-set-key   [drag-mouse-1]       'mouse-set-region)
 (global-set-key   [mouse-2]    'mouse-yank-at-click)
 (global-set-key   [mouse-3]    'mouse-save-then-kill)