xemacs-beta: lisp/mouse.el comparison

comparison lisp/mouse.el @ 272:c5d627a313b1 r21-0b34

Import from CVS: tag r21-0b34

author	cvs
date	Mon, 13 Aug 2007 10:28:48 +0200
parents	084402c475ba
children	7df0dd720c89

comparison

equal deleted inserted replaced

-:c7b7086b0a39
+:c5d627a313b1
 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 ;; General Public License for more details.
 ;; You should have received a copy of the GNU General Public License
 ;; along with XEmacs; see the file COPYING.  If not, write to the
 ;; Free Software Foundation, 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 ;;; Synched up with: Not synched with FSF.  Almost completely divergent.
 (and (not mouse-yank-at-point)
 (mouse-set-point event))
 (funcall mouse-yank-function))
 (defun click-inside-extent-p (click extent)
-"Returns non-nil if the button event is within the bounds of the primary
+"Return non-nil if the button event is within the primary selection-extent.
-selection-extent, nil otherwise."
+Return nil otherwise."
 ;; stig@hackvan.com
 (let ((ewin (event-window click))
 	(epnt (event-point click)))
 (and ewin
 	 epnt
 (or (click-inside-extent-p click primary-selection-extent)
 (click-inside-extent-p click zmacs-region-extent)
 ))
 (defun point-inside-extent-p (extent)
-"Returns non-nil if the point is within or just after the bounds of the
+"Return t if point is within the bounds of the primary selection extent.
-primary selection-extent, nil otherwise."
+Return t is point is at the end position of the extent.
+Return nil otherwise."
 ;; stig@hackvan.com
 (and extent
 (eq (current-buffer)
 	   (extent-object extent))
 (> (point) (extent-start-position extent))
 (>= (extent-end-position extent) (point))))
 (defun point-inside-selection-p ()
 ;; by Stig@hackvan.com
 (or (point-inside-extent-p primary-selection-extent)
 (point-inside-extent-p zmacs-region-extent)))
 (defun mouse-drag-or-yank (event)
-"Either drag or paste the current selection.  If the variable
+"Either drag or paste the current selection.
-`mouse-yank-at-point' is non-nil, then moves the cursor to the location of
+If the variable `mouse-yank-at-point' is non-nil,
-the click before pasting.
+move the cursor to the location of the click before pasting.
-This functions has to be improved. Until now it is just a (working) test."
+This functions has to be improved.  Currently it is just a (working) test."
 ;; by Oliver Graf <ograf@fga.de>
 (interactive "e")
 (if (click-inside-extent-p event zmacs-region-extent)
 ;; okay, this is a drag
 (cond ((featurep 'offix)
 	 (mouse-set-point event))
 (funcall mouse-yank-function))
 )
 (defun mouse-offix-drop (event)
-"Do something with an OffiX drop event. Inserts Text drops and
+"Do something with an OffiX drop event.
-executes appropriate commands for specific drops.
+Insert Text drops and execute appropriate commands for specific drops.
 Text drops follow the `mouse-yank-at-point' variable."
 ;; by Oliver Graf <ograf@fga.de>
 (interactive "e")
 (let ((type (car (event-drag-and-drop-data event)))
 	(data (cadr (event-drag-and-drop-data event)))
 	(frame (event-channel event)))
 	     (hexlify-buffer)
 	     (make-frame-visible frame))))
 (undo-boundary)))
 (defun mouse-mswindows-drop (event)
-"Do something with a drop event. Inserts Text drops and
+"Do something with a drop event.
-executes appropriate commands for specific drops.
+Insert Text drops and execute appropriate commands for specific drops.
 Text drops follow the `mouse-yank-at-point' variable."
 (interactive "e")
 (let* ((type (car (event-drag-and-drop-data event)))
 	(data (cadr (event-drag-and-drop-data event)))
 	(frame (event-channel event))
 	(window (if frame (event-window event) (frame-selected-window))))
 It's also fantastic for debugging regular expressions."
 ;; by Stig@hackvan.com
 (interactive "e\nP")
 (let (exp val result-str)
 (setq exp (save-window-excursion
 		(save-excursion
 		  (mouse-set-point click)
 		  (save-excursion
 		    (or (looking-at "(") (forward-sexp -1))
 		    (read (point-marker))))))
 (cond ((stringp exp)
 "Bury the buffer pointed to by the mouse, thus selecting the next one."
 (interactive "e")
 (save-selected-window
 (select-window (event-window event))
 (bury-buffer)))
 (defun mouse-unbury-buffer (event)
 "Unbury and select the most recently buried buffer."
 (interactive "e")
 (save-selected-window
 (select-window (event-window event))
 Default handlers are provided to implement standard selecting/positioning
 behavior.  You can explicitly request this default behavior, and override
 any custom-supplied handlers, by using the function `mouse-track-default'
 instead of `mouse-track'.
 Default behavior is as follows:
 If you click-and-drag, the selection will be set to the region between the
 point of the initial click and the point at which you release the button.
 These positions need not be ordered.
 (defvar default-mouse-track-max-anchor nil)
 (defvar default-mouse-track-result nil)
 (defvar default-mouse-track-down-event nil)
 ;; D. Verna Feb. 17 1998
 ;; This function used to assume that when (event-window event) differs from
 ;; window, we have to scroll. This is WRONG, for instance when there are
 ;; toolbars on the side, in which case window-event returns nil.
 (defun default-mouse-track-set-point-in-window (event window)
 (if (event-over-modeline-p event)
 nil ;; Scroll
 	  (if  (or (not p) (not (pos-visible-in-window-p p window)))
 	      nil ;; Scroll
 	    (mouse-set-point event)
 	    t))
 ;; Not over a modeline, not the same window. Check if the Y position
 ;; is still overlapping the original window.
 (let* ((edges (window-pixel-edges window))
 	     (row (event-y-pixel event))
 	     (text-start (nth 1 edges))
 	     (text-end (+ (nth 3 edges))))
 	(if (or (< row text-start)
 		(> row text-end))
 	    nil ;; Scroll
 	  ;; The Y pos in overlapping the original window. Check however if
 	  ;; the position is really visible, because there could be a
 	  ;; scrollbar or a modeline at this place.
 	  ;; Find the mean line height (height / lines nb), and approximate
 	  ;; the line number for Y pos.
 	  (select-window window)
 	  (let ((line (/ (* (- row text-start) (window-height))
 			 (- text-end text-start))))
 	    (if (not (save-excursion
 		       (goto-char (window-start))
 		       (pos-visible-in-window-p
 			(point-at-bol (+ 1 line)))))
 	       (goto-char (window-end))
 	       (vertical-motion delta)
 	       ;; window-end reports the end of the clipped line, even if
 	       ;; scroll-on-clipped-lines is t.  compensate.
 	       ;; (If window-end gets fixed this can be removed.)
 	       (if (not (pos-visible-in-window-p (max (1- (point))
 						      (point-min))))
 		   (vertical-motion -1))
 	       (condition-case () (backward-char 1)
 		 (error (end-of-line)))))))))
 ;; This remembers the last position at which the user clicked, for the
 ;; benefit of mouse-track-adjust (for example, button1; scroll until the
 	    (close-pos  (save-excursion
 			  (set-buffer (event-buffer event))
 			  (let ((p (event-closest-point event)))
 			    (and p (min (max p (point-min)) (point-max))))))
 	    extent previous-point)
 	(if (not (event-window event))
 	    (error "not over window?"))
 	(setq default-mouse-track-type
 	      (nth (mod (1- click-count)
 			(length default-mouse-track-type-list))
 	;; resolved by the usual size-and-endpoint-comparison method.
 	(set-extent-priority extent (1+ mouse-highlight-priority))
 	(if mouse-track-rectangle-p
 	    (setq default-mouse-track-extent
 		  (list default-mouse-track-extent)))
 	(setq previous-point
 	      (if (and adjust
 		       (markerp default-mouse-track-previous-point)
 		       (eq (current-buffer)
 			   (marker-buffer default-mouse-track-previous-point)))
 (defvar mouse-track-insert-selected-region nil)
 (defun mouse-track-insert-drag-up-hook (event click-count)
 (setq mouse-track-insert-selected-region
 	(default-mouse-track-return-dragged-selection event)))
 (defun mouse-track-insert (event &optional delete)
 "Make a selection with the mouse and insert it at point.
 This is exactly the same as the `mouse-track' command on \\[mouse-track],
 except that point is not moved; the selected text is immediately inserted
 after being selected\; and the selection is immediately disowned afterwards."

Mercurial > hg > xemacs-beta

comparison lisp/mouse.el @ 272:c5d627a313b1 r21-0b34