mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

(mouse-avoidance-too-close-p): Return nil if mouse

Browse Source 
is in the tool bar.
This commit is contained in:
Gerd Moellmann 2000-11-23 14:23:28 +00:00
parent 595dead24f
commit 02790ce2e0
2 changed files with 20 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -4,6 +4,9 @@
2000-11-23 Gerd Moellmann <gerd@gnu.org>
* avoid.el (mouse-avoidance-too-close-p): Return nil if mouse
is in the tool bar.
* dired-aux.el (dired-add-entry): Don't call dired-get-filename
with `no-dir'; we want the directory part to be able to remove
it.

27
lisp/avoid.el
View File

@ -1,6 +1,6 @@
;;; avoid.el --- make mouse pointer stay out of the way of editing
;;; Copyright (C) 1993, 1994 Free Software Foundation, Inc.
;;; Copyright (C) 1993, 1994, 2000 Free Software Foundation, Inc.
;; Author: Boris Goldowsky <boris@gnu.org>
;; Keywords: mouse
@ -173,15 +173,22 @@ Analogous to mouse-position."
t))
(defun mouse-avoidance-too-close-p (mouse)
;; Return t if mouse pointer and point cursor are too close.
;; Acceptable distance is defined by mouse-avoidance-threshold.
(let ((point (mouse-avoidance-point-position)))
(and (eq (car mouse) (car point))
(car (cdr mouse))
(< (abs (- (car (cdr mouse)) (car (cdr point))))
mouse-avoidance-threshold)
(< (abs (- (cdr (cdr mouse)) (cdr (cdr point))))
mouse-avoidance-threshold))))
"Return t if mouse pointer and point cursor are too close.
MOUSE is the current mouse position as returned by `mouse-position'.
Acceptable distance is defined by `mouse-avoidance-threshold'."
(let* ((frame (car mouse))
(mouse-y (cdr (cdr mouse)))
(tool-bar-lines (frame-parameter nil 'tool-bar-lines)))
(if (and mouse-y (< mouse-y tool-bar-lines))
nil
(let ((point (mouse-avoidance-point-position))
(mouse-x (car (cdr mouse))))
(and (eq frame (car point))
(not (null mouse-x))
(< (abs (- mouse-x (car (cdr point))))
mouse-avoidance-threshold)
(< (abs (- mouse-y (cdr (cdr point))))
mouse-avoidance-threshold))))))
(defun mouse-avoidance-banish-destination ()
"The position to which mouse-avoidance-mode `banish' moves the mouse.