[drew.adams@oracle.com: RE: moving overlay loses its priority?]

[drew.adams@oracle.com: RE: moving overlay loses its priority?]

[Richard Stallman]

Would someone please DTRT and ack?

------- Start of forwarded message -------
From: "Drew Adams" <drew.adams@oracle.com>
To: "Emacs-Pretest-Bug" <emacs-pretest-bug@gnu.org>
Date: Sat, 12 Aug 2006 18:03:34 -0700
MIME-Version: 1.0
Content-Type: multipart/mixed;
	boundary="----=_NextPart_000_0018_01C6BE39.A0B7C810"
In-Reply-To: <EIENLHALHGIMHGDOLMIMAEHLCKAA.drew.adams@oracle.com>
Subject: RE: moving overlay loses its priority?
X-Spam-Status: No, score=0.0 required=5.0 tests=none autolearn=failed 
	version=3.0.4

This is a multi-part message in MIME format.

- ------=_NextPart_000_0018_01C6BE39.A0B7C810
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: 7bit

Sorry again. In Emacs 20 -q, the tracking works everywhere, but, for some
reason, when tracking, the highlit character is in inverse video (red
foreground on black background). This is true whether over text or a link.
When you first click, before moving the mouse, the highlighting is normal
(red background). I don't know if this info will help find the bug in the
Emacs 22 code or not.

And, in my own setup, where I use a Cyan background for face `highlight',
tracking works OK in both Emacs 20 and 22. I'm not sure why - I've
customized other things as well in my setup, so don't worry about this case.

The point is that tracking over links does not seem to work right in vanilla
Emacs 22 (i.e. with option -Q). The original link mouse-face highlighting
takes priority. Thx.

>  -----Original Message-----
> From: 	Drew Adams [mailto:drew.adams@oracle.com] 
> Sent:	Saturday, August 12, 2006 5:42 PM
> To:	Emacs-Pretest-Bug
> Subject:	RE: moving overlay loses its priority?
> 
> Sorry for forgetting to add this:
> 
> #1 is true also for Emacs 20: the mouse-face text property is inhibited
> over the entire link by applying the overlay to just one character in the
> link.
> 
> #2, however, is not a problem in Emacs 20. This is the main reason I
> reported a bug: the tracking doesn't work in a link. In Emacs 20, it works
> perfectly, even within a link.
> 
> Thx - Drew
> 
> 	 -----Original Message-----
> 	From: 	Drew Adams [mailto:drew.adams@oracle.com] 
> 	Sent:	Saturday, August 12, 2006 5:34 PM
> 	To:	Emacs-Pretest-Bug
> 	Subject:	moving overlay loses its priority?
> 
> 	I'm not sure this is a bug. It might be user ignorance.
> 
> 	I have an overlay that has priority 1000000. It has both a face and
> a
> 	mouse-face property. When I place it over a face, it shows up. When
> I
> 	place it over a mouse-face (e.g. a link in Info), it shows up also
> 	(takes precedence over the link mouse-face), but I notice two
> things,
> 	which I don't understand:
> 
> 	1. If applied to just part of some text that has a mouse-face text
> 	   property, it takes precedence over the entire string of text with
> 	   that property, not just over the part that has the overlay.
> 
> 	2. If I move the overlay slightly, then it no longer has precedence
> -
> 	   the text's mouse-face shows again.
> 
> 	Recipe:
> 
> 	1. emacs -Q
> 	2. Load the code below.
> 	3. C-h i, and enter some Info manual.
> 
> 	4. Press and hold mouse-2 on some text in the buffer. You'll see
> that
> 	   as long as mouse-2 remains pressed, the red overlay is shown over
> 	   the yank-position character. Even if you move the mouse, as long
> as
> 	   mouse-2 remains pressed, the overlay moves with the mouse
> position.
> 
> 	5. Press and hold mouse-2 over an Info link. You should see the same
> 	   behavior as with text, because the overlay has identical face and
> 	   mouse-face properties.
> 
> 	What you in fact see is this:
> 
> 	1. The overlay shows on the yank-position character when you first
> 	   press mouse-2, but the entire link mouse-face highlighting
> 	   disappears. That is, there is no highlighting on the link, except
> 	   for the red mouse-2 highlighting of the yank position. I don't
> 	   understand why this happens.
> 
> 	2. If you move the mouse within the link, keeping mouse-2 pressed,
> the
> 	   text's mouse-face comes back over the entire link - there is no
> 	   tracking of the yank position with the red mouse-face overlay.
> 
> 	The code for mouse-flash-position and mouse-flash-posn-track was
> 	inspired from mouse-drag-region and mouse-drag-track, respectively.
> I
> 	don't think there is anything in their code that would cause this
> 	behavior, but I'm not 100% sure.
> 
> 	Is this a bug? If not, can you perhaps point out my
> misunderstanding?
> 	Thx.
> 
> 	-------------8<--------------------------
> 
> 	(global-set-key [down-mouse-2] 'mouse-flash-position)
> 
> 	(defface mouse-flash-position '((t (:background "Red")))
> 	  "*Face used to highlight mouse position temporarily."
> 	  :group 'mouse)
> 
> 	(defconst mouse-flash-posn-overlay
> 	    ;; Create and immediately delete, to get "overlay in no buffer".
> 	  (let ((ol (make-overlay (point-min) (point-min))))
> 	    (delete-overlay ol)
> 	    (overlay-put ol 'face 'mouse-flash-position)
> 	    (overlay-put ol 'mouse-face 'mouse-flash-position)
> 	    (overlay-put ol 'priority 1000000)
> 	    ol)
> 	  "Overlay to highlight current mouse position.")
> 
> 	(defun mouse-move-flash-posn-overlay (ol start end)
> 	  "Move `mouse-flash-posn-overlay' to position END.
> 	START is the position of the start of the current drag operation."
> 	  (unless (= start end)
> 	    ;; Go to START first, so that when we move to END, if it's in
> the middle
> 	    ;; of intangible text, point jumps in the direction away from
> START.
> 	    ;; Don't do it if START=END, otherwise a single click risks
> selecting
> 	    ;; a region if it's on intangible text.  This exception was
> originally
> 	    ;; only applied on entry to mouse-drag-region, which had the
> problem
> 	    ;; that a tiny move during a single-click would cause the
> intangible
> 	    ;; text to be selected.
> 	    (goto-char start)
> 	    (goto-char end)
> 	    (setq end (point)))
> 	  (move-overlay ol end (min (point-max) (1+ end))))
> 
> 	;; Inspired from `mouse-drag-region'.
> 	;;;###autoload
> 	(defun mouse-flash-position (start-event)
> 	  "Highlight the mouse position as you drag the mouse.
> 	This must be bound to a button-down mouse event.  If you bind this
> to
> 	`down-mouse-2', and `mouse-2' is bound to `mouse-yank-at-click' (the
> 	default), then the yank occurs just before the highlighted
> character.
> 
> 	If you want to prevent the `mouse-2' up-button yank from taking
> place,
> 	perhaps because you changed your mind, you can press and hold `C-g'
> 	while releasing the mouse button (press `mouse-2'; drag; press
> `C-g';
> 	release `mouse-2'; release `C-g')."
> 	  (interactive "e")
> 	  (run-hooks 'mouse-leave-buffer-hook)  ; Let temporary modes such
> as isearch turn off.
> 	  (mouse-flash-posn-track start-event))
> 
> 	(defun mouse-flash-posn-track (start-event)
> 	  "Track mouse drags by highlighting the mouse position"
> 	  (mouse-minibuffer-check start-event)
> 	  (let* ((original-window (selected-window))
> 	         (echo-keystrokes 0)
> 		 (start-posn (event-start start-event))
> 		 (start-point (posn-point start-posn))
> 		 (start-window (posn-window start-posn))
> 		 (start-window-start (window-start start-window))
> 		 (start-hscroll (window-hscroll start-window))
> 		 (bounds (window-edges start-window))
> 		 (make-cursor-line-fully-visible nil)
> 		 (top (nth 1 bounds))
> 		 (bottom (if (window-minibuffer-p start-window)
> 			     (nth 3 bounds)
> 			   (1- (nth 3 bounds))))) ; 1-: Don't count the mode
> line.
> 	    (mouse-move-flash-posn-overlay mouse-flash-posn-overlay
> start-point start-point)
> 	    (overlay-put mouse-flash-posn-overlay 'window start-window)
> 	    (deactivate-mark)
> 	    (unwind-protect
> 	         (let (event end end-point last-end-point)
> 	           (track-mouse
> 	             (while (progn (setq event (read-event))
> 	                           (or (mouse-movement-p event)
> 	                               (memq (car-safe event) '(switch-frame
> select-window))))
> 	               (unless (memq (car-safe event) '(switch-frame
> select-window))
> 	                 (setq end (event-end event)
> 	                       end-point (posn-point end))
> 	                 (when (numberp end-point) (setq last-end-point
> end-point))
> 	                 (cond
> 	                   ((and (eq (posn-window end) start-window) ;
> Moving within original window.
> 	                         (integer-or-marker-p end-point))
> 	                    (mouse-move-flash-posn-overlay
> mouse-flash-posn-overlay
> 	                                                   start-point
> end-point))
> 	                   (t
> 	                    (let ((mouse-row (cddr (mouse-position))))
> 	                      (cond
> 	                        ((null mouse-row))
> 	                        ((< mouse-row top)
> 	                         (mouse-scroll-subr start-window (-
> mouse-row top)
> 	                                            mouse-flash-posn-overlay
> start-point))
> 	                        ((>= mouse-row bottom)
> 	                         (mouse-scroll-subr start-window (1+ (-
> mouse-row bottom))
> 	                                            mouse-flash-posn-overlay
> start-point)))))))))
> 	           ;; In case we did not get a mouse-motion event for the
> final move of
> 	           ;; the mouse before a drag event, pretend that we did get
> one.
> 	           (when (and (memq 'drag (event-modifiers (car-safe
> event)))
> 	                      (setq end (event-end event)  end-point
> (posn-point end))
> 	                      (eq (posn-window end) start-window)
> 	                      (integer-or-marker-p end-point))
> 	             (mouse-move-flash-posn-overlay mouse-flash-posn-overlay
> start-point end-point))
> 	           (when (consp event)          ; Handle the terminating
> event.
> 	             (let ((fun (key-binding (vector (car event)))))
> 	               ;; Run the binding of the terminating up-event, if
> possible.
> 	               (let* ((stop-point (if (numberp (posn-point
> (event-end event)))
> 	                                      (posn-point (event-end event))
> 	                                    last-end-point))
> 	                      (drag-end (if (and stop-point (< stop-point
> start-point))
> 	                                    (overlay-start
> mouse-flash-posn-overlay)
> 	                                  (overlay-end
> mouse-flash-posn-overlay)))
> 	                      (drag-start (- (+ (overlay-end
> mouse-flash-posn-overlay)
> 	                                        (overlay-start
> mouse-flash-posn-overlay))
> 	                                     drag-end))
> 	                      last-command this-command)
> 	                 (delete-overlay mouse-flash-posn-overlay)
> 	                 (when (and (= start-hscroll (window-hscroll
> start-window))
> 	                            (or end-point
> 	                                (= (window-start start-window)
> start-window-start)))
> 	                   (push event unread-command-events))))))
> 	      (delete-overlay mouse-flash-posn-overlay))))
> 
> 	-------------8<--------------------------
> 
> 
> 
> 
> 
> 	In GNU Emacs 22.0.50.1 (i386-msvc-nt5.1.2600)
> 	 of 2006-07-19 on BOS-CTHEWLAP2
> 	X server distributor `Microsoft Corp.', version 5.1.2600
> 	configured using `configure --with-msvc (12.00)'
> 
> 	Important settings:
> 	  value of $LC_ALL: nil
> 	  value of $LC_COLLATE: nil
> 	  value of $LC_CTYPE: nil
> 	  value of $LC_MESSAGES: nil
> 	  value of $LC_MONETARY: nil
> 	  value of $LC_NUMERIC: nil
> 	  value of $LC_TIME: nil
> 	  value of $LANG: ENU
> 	  locale-coding-system: cp1252
> 	  default-enable-multibyte-characters: t
> 
> 	Major mode: Info
> 
> 	Minor modes in effect:
> 	  encoded-kbd-mode: t
> 	  tooltip-mode: t
> 	  tool-bar-mode: t
> 	  mouse-wheel-mode: t
> 	  menu-bar-mode: t
> 	  file-name-shadow-mode: t
> 	  global-font-lock-mode: t
> 	  font-lock-mode: t
> 	  blink-cursor-mode: t
> 	  unify-8859-on-encoding-mode: t
> 	  utf-translate-cjk-mode: t
> 	  auto-compression-mode: t
> 	  line-number-mode: t
> 
> 	Recent input:
> 	<mouse-1> <mouse-1> <mouse-1> <mouse-1> <mouse-1> <mouse-1> 
> 	<mouse-1> <mouse-1> <mouse-1> <down-mouse-1> <mouse-1> 
> 	<help-echo> <down-mouse-1> <down-mouse-1> <mouse-1> 
> 	C-x 1 u <help-echo> <down-mouse-1> <mouse-1> C-x b 
> 	<return> M-x r e v e r t - b u <return> y e s <return> 
> 	C-M-x C-h i <help-echo> <down-mouse-2> <help-echo> 
> 	<help-echo> <help-echo> <help-echo> <help-echo> C-g 
> 	C-g <C-drag-mouse-2> C-g C-g C-g C-g C-g C-g C-g C-g 
> 	C-g C-g C-g C-g <help-echo> <help-echo> <help-echo> 
> 	<down-mouse-2> <help-echo> C-g <C-drag-mouse-2> C-g 
> 	C-g C-g C-g <help-echo> C-g <help-echo> C-g <help-echo> 
> 	C-g C-g C-g C-g C-g C-g C-g C-g C-g C-g C-g <help-echo> 
> 	<help-echo> <help-echo> <help-echo> <help-echo> <help-echo> 
> 	<menu-bar> <help-menu> <report-emacs-bug>
> 
> 	Recent messages:
> 	Resetting customization items...done
> 	Creating customization setup...done
> 	Loading info...done
> 	Composing main Info directory...done
> 	Mark set
> 	mouse-flash-position
> 	Quit [32 times]
> 	mouse-flash-posn-overlay
> 	Quit [32 times]
> 	Loading emacsbug...done

- ------=_NextPart_000_0018_01C6BE39.A0B7C810
Content-Type: application/ms-tnef;
	name="winmail.dat"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
	filename="winmail.dat"

eJ8+IiIBAQaQCAAEAAAAAAABAAEAAQeQBgAIAAAA5AQAAAAAAADoAAEIgAcAGAAAAElQTS5NaWNy
b3NvZnQgTWFpbC5Ob3RlADEIAQ2ABAACAAAAAgACAAEGgAMADgAAANYHCAAMABIAAwAAAAYADAEB
A5AGADAZAAAkAAAACwACAAEAAAALACMAAAAAAAMAJgAAAAAACwApAAAAAAADAC4AAAAAAAMANgAA
AAAAHgBwAAEAAAAjAAAAbW92aW5nIG92ZXJsYXkgbG9zZXMgaXRzIHByaW9yaXR5PwAAAgFxAAEA
AAAgAAAAAca+cDL4CgVdKm4tTwSyFLCKT1PFTAAALP5wAAAlh+ACAR0MAQAAABsAAABTTVRQOkRS
RVcuQURBTVNAT1JBQ0xFLkNPTQAACwABDgAAAABAAAYOAHp/OHS+xgECAQoOAQAAABgAAAAAAAAA
6ZVxP/rMSE23C58ZBwFGQMKAAAALAB8OAQAAAAIBCRABAAAAzRQAAMkUAABINQAATFpGdREjiUsD
AAoAcmNwZzEyNRYyAPgLYG4OEDAzM08B9wKkA+MCAGNoCsBz8GV0MCAHEwKDAFAQZhhwcnEOUBDY
VGFomwNxAoB9CoAIyCA7CW8tDjA1AoAKgXYIkHdraQuAZDQMYGMAUAsDYw8SAgvEBgAFsHJ5IGGi
ZwtxLiBJA6BFAMEDBCAYYS1xLCB0aBplGlByANAW4WcgdyUFsGsEIGV2BJB5d8cacAlwGkBidXQa
QAIQXQXAcwNwGoAJcGEc4G4fGkAb4QOgGqYaRGhpZ7hobGkFQBDiANB0BJB+IAQAH/ADoAuAG6ER
ICBjFqABAG8gKAlxHJJl9wnACGAXACACIBxAC2Aa0NccQBrBIdQpGUBUHuAgEb8EIBqgClAdohph
BcBvG6GZGlBleAVABbFhIB8g1G5rGUBXHcJ5CGAckP5pERAfQR8gGtAcMQEQIaG+IARgFqAbARpi
BGB1ESDbHoofAHQa8iABbgWwAMBHAyAhQyLbSSBkAiAn/QVAaypwB+AGkBpRIAMCEM8bIAMQAyAa
cGxwJsEiEb8aYhxQKiEd4RpxGZUyH1DnBHElgipwdC4KogqECoDuQRcAGkAgMW0Y0CygA6D5ESF1
cB2TJ+EsACjhJbHcQ3kDkSLYHJNmANAagJpgKXcnGkEavE9LICJ/BuAaYBmIAHAhcC/gGUEnvm0w
ghzQCHAkUhjQLTjRlxugH1Ao4HQDcGl6IWH/N5ElEh7gDyAEIB1QGyAuAP8DIDHkMoUc4CwVGzEY
wgbg6xxgLPRjHVBlMMsjoBqA/HBvC4AFQCPyEPA+YRq2/yTzJeIEICwgB5E5IwngOQDfOpAbIx0g
KcIgInYAcC2x4yXAL4coaS4/AC2RN6HKbwUwaSJBLVEjczBC3x7wC4AqsSXiKLQtNRMpez0BkGsH
kRKwRiAFEHR5nSOCeDDLCvQfIDM2AUBfF9ABQBKwMKAFkHQL0jSeIAMwDwRM8BH0MTYaENVOUk9H
Bk0HkHMY8EgQP05SMNZMZEwxCxNMZmktGDE0NAFAHyAxODBHAUAM0FHzYiBGA2E6awMwDJJiEVBE
CXAH4EHoZGFtBCBbAMADEDqQpDpkVDEuYVSCQAWwzQDQbD8ABaBtXQrjCoH3UyAGYAIwOlOmBhAy
oAsgtGF5GkBBLuA6cSAOIIsaQAHQME4wNTo0L/B0UE1Wx1RVMFOmGZMtzlAJcB/AJwAtQi7gVsiY
dWJqTJFXl1JFU4B/KBUk8gtgGNAJABEgIBF0/UmYP0qcUH9Mkku2AFAPBv8YDTTTBbBPgAJAKEMh
IFWgzy5yBABXkDDpIzEj5wdA/z0xHKIZllOAKIdIJCVDTFHecASQShAf9B7gYh8wOuK/JQMacVdh
JuAagEeDYhjRunALUHkoRl7GQyFqWPL/AiA6QR94LyQl42ZrWUETwP88EBuhMcFCdCXATFECYELx
/yAxGZYjiSiSC3EdJSvxCXD/QCAAICFhJcAu0WjkGqdCQv89hSKwIDElxhlpMcF31EmR/QSQZkyR
bVAaQBuRA6BFovt4SD8seDnhVCJgf2GPS6H/AcFMA0zfTe9O/34PUR9SIv4ygbBSn1OvVL9Vz1bf
V+/9WP0zgJBaH1svXD9dS15f/19vfZ+EP3+1Y0846y0EO8H/LsIZQQVAOrBDwiegM2If4f5nKnEA
cDUwMMssABDwOjH/A5Ft90DCEPBJmFkgUoCd4r+ZA50CN4MlwDUTOGJhMNT/R9lqRiYlLAALUTUx
HzEk8/ufJHmjc3GRBCAysKF2MNT7og5H2Sg/AJjxJcQgIhlg3QIQKaNLZ8Mw1ChJVgWQ/wmACfA1
MWunR42n4RxRK/HfMJEN4BqBGzA7ZSww1Bvg/w3gN7AsBiIBIJEBkBcAZlv+MRlBLOBtIgiQLnFu
hQqx/yVxLOAc4yVDnLel2yVCMNT/gKBqN3mjqY9rricABRBBYv8s4SVSRaK0l0CztSg5Im6k/2u2
sdOct225MMs4sizgLAD3KBGYEm3YcymzesIaYSBB/wVAKnCSgQ8gH9GdBLZ3g3X7uZNp1CcEIEfZ
o5QY9DDa9lIFkAUgZa+uQvAZskZg+b3XTG+JMBpTMBMnoAkAS4kQMNQzGUBDLTewaX8aQDhiivEf
0Rzjp6J0sW72dQdAMMs0GUCPYQQROGL9E8BsIXBH1C/wIkGyWC8VrxxQASAEkBlAWQhgJy3B/0LR
QKO0lzvhwRI70s42CXD/dMK2MwQQCYAaRCFSkhYgAc+jkpwUwosz4WstQCAAkPdGEx9nGUBFexIs
0SaSvrf/KMXR+LSX0q/TupIWvrI78d9FsiiHQBHXRDDLNc0vzjffoqOnhCXV0HGjgnXOAdDk+7fh
iCBltJcnoJuxSdE70//eEyVRJ4I+0DNybbqdAiDxf2xBPtADIJ9G2s2gqgiQc/8wyyZAQNEmkiAx
NRFCs0B0/2Y9sHFGs79Wo6MiQdafH1n/HbMml7SZ4JLONawka/5H3/sp1LSXZAQAbSEdQBEQI4L/
QNEEABpDJ+EqQyls77Ul4v164Xg1MAUwtJccotQ2zjb/+Vws4vAE3ugr9tFnrwg5o/8tAxDw94EN
wL1v2M8zcntV//pYSXB1sBryzjbTqrk4w2//igGSwSLStv/08znw+Jm5OP9BF/4PIkHeB/xoplO8
/z+1/zATaCL1RUSAo5DwaDhiEb38bi0aoxsg2qbcEQWgIVPvhuH1NYjgGPAtIbESzBaD3xqjGkDg
gWpwH7BpG6B6wH940dFkLCQ7ciKw+JfL8Hn/O3MvBWxgMARAs3nw44Lmpr8gANFk5RasJTj1ndEl
OVP3msztNHYkP7CSMJEG4Ohg/yZ0anEBkUmRQDM+QjIRmVB/OWCvF/aBk7VKXoHjJtY4zjwm2ybb
MNooZ5KQCUC0bC08wS1JcDnQWxnwfdWQLfylijA48BHP/xApPylrwhDQEKZiLC9GIicoK6lwRTA6
NCkixfBkIsYpMYDRZiIqRqZi3rHvsTP9J96NaeFtdcFvUERg9UogItFmOjDCqLAsFC1vP4oA3CAz
pROakhXRZyA7njvKIHURlMCfg2lty2D/90A6wXrArpAZMI+BBuFlsL9lITEg1Ld4UMDhz/QimsXt
0cAoPCFFMCjN8EUwx2C/SXA5RkUwI5MrcHMwKUBa/zGJPsE8BD/XzfBB+pIV8GD7rFE/USemUywf
LSlEP0VCf/VJRd9G70SdnU5B+UOpIvZPbggzKGMgINvQI8Henf8xcC1+AFD8lb6yOJ9AMj9RV69R
sfHCIGQxqE0DgmAbOE+SFSdlkvB3RU5EwZrFU1RBUlR0RvB3/wzVVUQM1VBmFoLOoGpxsxCfUZM+
ZwBQidDgoSg9VT/9OiVHrTFlsFnU8jMG4Gfx/xy08bJxsL6lZbBZMXIBAxD/wLDDkc+FmVBl4InQ
OcuyIf8jsYDhazCJ0OYVI5RuoDTQ/2P390C2YRK0FLCdsBXTWdP7Plc6Q0QaAxnwebLYsVnT/j1j
Q57hAIDl0N7Be8DwkL/2kGZhicCs0KdQnYBzeiH/3sCJ0Bjx9pk6UnvAFtVjlv9v4mX8eNBz9Pr0
DePloUzR/4JjesBk7F6QnbCw1vDRivH+ck9zFi8G4K4ks0DIlH9B/WZRbTnLHLN7wP2h3YSukPcg
IBuSbNYtbWQdDBrxZff/eJyysz3Bt+FuM8IAabkqIP2UsG97YPERXxRB+oA4X4z6KCqhcVWSQFUx
iT+AU5JPQyiDtEDRQFdheEEBMf4rVZMxh9FkOmHiYBVqVsXNFoknmsU6YDsji8B8QH88gJKQyIBS
Xy8Pg2BfMi3mZdhxgRgiSDM33l8XIb+YkPHyXPPZd5rFceNtuwLfmbGe0DDyPIEhonQ8gBQw3ysy
3oWPA3GxAwVip3DIkuvtIgulYCs6J8qEVsWY8P/44pRXVsXwI7MQe2RYUKlwdwcWLkF8QGyBEMBF
DQdv/mNccSGAuvPmgBFxvuT9J/8Vode4IGsDFBSwI8FYctvQ748SDPOZeKigLZUE/lQV0/+18RuS
sPDosa21IxbmhvHy//EBwTEVsPHxEZGXIQbgp6OXIqHzFODXYMowZyetx/9mYdvQZMDloBuSkJik
ZUBgf+CDmXc6cBaCOnCtVaqSO79CBKuUo3k6cK/nqpIpXdlvI7FdYRjzMSBlUdY+wXLzAFDKQG9v
bfFJlauxU6H/z/S0Y0EAOlDIUDzBNLbdgvvCEG4BdXdx59LewPEgd3H2dCAgWxJmPlhW3xRUjqrf
Ue+NHxQnjp8x81QUY96U3xaCCSHnof06kJ9uXehTJX/sYGZAtbR3cH8gu1w+air7PyJzJS3l0OkA
yXCDUn8U98fVQerJ0yh/IONgKtJhgK/qcCrgIYBNllylcGKDQv/FoxQCylGPEiqQXzO7f8vf/yOy
QGFUUWb0zGjOn8Wyx+a/FAPH5dEP0h8rMc11KNYrx9Ka1N/FsmhzY+pwc4D/1ufZ5tffzuiaQ17R
1iU7cP+oIG4B23/O9z+TnnLlcLUw7+xg9YF78BlALeVQ8JBmUt/EoEO2y/U8gDZQKCPAd4D6MZo0
c9wvlSEWALKQAxD/1vbEiTZQ3mvYuMv0QmPjYv4z47bn74dhCuDpLEHCtnH96zA6aoUI4ABQkHYc
geDS/396Uy9UO71/hXbPis+JSu/3RNXxL4V2J9PL53tCZbLz+zrBhxFytkBCCQBQx+JKUP8w0H9A
yKDJfj7zovSGIoYh/8/VLzG/Mf3GyW7i4gxSK3TP/08+was0rUFvZ45yg4P/owO0IDqwyNC72wF7
BbzHQf/vKgkAQKE2UI8MCP8Biztgmm2DoCipULXwc2E+EPsIFTABcw4hd3APQKCwO2D/fuXI5wSf
ygVehgrvC/8ND/8OP8n2g3jNJP1zCD8XP/24/9BKh7MWjwHnnZHjUGdgpyD+cggB/reDVf5cHFkZ
/8n27zfhjGUffz7BKJkyymAQUf/TelWi3ly2cVZxpaIRsXdQ/1sRcyUlgdMSabknn0JjsqL/qCC1
8OCh+eLmwx5vJ+/vD//2L/WvOV8wnzGvAXvPiipPfzKP4uI1D/wtufVpIMgxY/9koAbnSmcOHx+v
IL8hfxvgb9oxOMc63z3/PD9IT4Fwnz//K6+Zk9n01oB1YoC1/8fX60BCL0M/ST8Bey6P8j/3NM9O
T8cwPl8AOMjlFE1//0QPRR/SnIeBRvtQVVC/Vz//WE9LL0w/hENbpFZPiON8Ia98YWKRaCCqEG5s
MCCoIL95kiymkXOi9J8xZDNmJkP/YsNlsFw/eTOsV58kb4CSM/+PA2bRrtB/QJczeYFd9V6i360Q
7nobDCKDECMnkjPNFf/t8eWQdRCekRB+XB8UDxUf/xEVGE8ZX2vfyhUi7yP+cG//KE8pXzR/Ug8s
/y4PWf8zrz93zxsqPMGJMG4nXMcgSP+ZMeHR7bKg4YZxm5ClopYk934/ODe9MijKwaRQlyGlov4o
YTDIoAbSEIFql34fXOf+Ur1B7bKFNmFggZ+kMWRF/+WRjgHho4L//GfHEpPw4yD/bublkhvmb1pt
j4cPkl8Bi/+Pn5CqkX+XH8nW/l2WDwGL/65iFdPlg6nyjgpCAI4JTL//mf+gT/Sb1pR7P/a1nv+l
H/+hPv1yop+jpp7vmq+bsNaV/+tBVNGmv6fPo/+vP6W/oc//rR+ow65vtN+1d5uGs7+X7//FIFYA
+eBlA+GQuSa3H5sH/w1B+bF6v61vup9nP0+Q2Y//2p8Sz8P/Bixut8Ofx4/KI/9PkNb/JFnVz5E/
k3y9EOOA//0U3TAD87k1ivTsJMwbu/8vvQ+ol+Q27qMt1Go4PD/Ua9Rr06rXX9P1XXFHTihVIEX5
4GNp4DIycC4wLjXaMOOg5YAzhDg2ALBzdmMt80CCNdpwLjI2MDD0Jg2JoTLb0NrgMDctMQI5ZiEg
Qk9TLUMAVEhFV0xBUDL17pRYDSFy9sFeER2QJhCj5oCF8mBNacFRc2Fgxe0wQ3agcC4nZJD2wT86
UF+h23bulDzBYLBnda9kwKyw0gCKkmDilyDUYF8lktrz6xHaEdvgJ9h7bT+c8LIAnGCeEQNAioJz
OhPulvmQbHVhQiAkTKBDX0FMTOzQbgJwE+eP6JJDT+jgQVRFY+kP6hhUWVDrD+g4TeBFU1NBR+6w
7Q/uGIBPTkVUQVJZ7y/H6EfZcO6gUklD8U/oRxxUSe6g81/oRUFOR831MEXZcPo2bG+GQA1Qd7kh
hWKxwHkdkAeg9TBjunDlIDXeRbZhY3BhPxC9/oJhi/F2wPox35B50TF/EeDMQACAgeHnYEew06pN
7GFqBtFpYWX1MF1wYDD//Fsl0P1FaeAl0WNwEOCF4I/nd23w+CHjEC1rYgQg//10xndV8MFwioCK
4AF/wXD/hSAQkQLt0eQbgQ1ABF9t8P51BB/3gWmg9/GCMBAgscD3ZUDJUgLtZ/ewB1BTcGAw+2kx
97FrB48LD/dFi/Al0P0NAGPi8OBgB3/OcItwsbDwODg1OS+AL3AAs/hSsQ7udGYt33CcYHPSUP37
UmoND/ogVfC5ImSxi8F/EIEC7Q4hCLEb8wLc9zRSX4XQX/Il0M3AABY80eQx/D4gGW8afxuOGQ8d
nx4B33LxFTIeXx0lwBBsiuH7gA5vH08fbxysQy14IH3agHUeECFvI28eACTyYtcdFmTB4vBuHgBN
JQGGYf/hIClhYFHkQCfxJVEoltHAf4HAaeAohySWKRIk8M3wafslbyZ2Mh4BLSkg/y0MML/fLXQk
8IqwJJaKsDwk8JuD/y43MuI03zWpMyg1mjFvOI//HQct7zJbM882nzfvPv84Df8+H0LPNz9BTzj/
Ro9Hn0VO/wcGSRYHAh4BZMDmcpvA2bLxhSB1Zz4Xf7IRFOFkEH//YOd1GDDm9V2Q0gBV8WmeeoJB
X6HkgGhQcy5Q0P9y8GZAJJXOkU9fXYBs8YrQ+VDbTG/OsIqSYMBgMFDc/xShenCKknbQ/5H90mWh
ZMD9heJ5UNv9EHbw5uL3NNHtJ+SAX5H3NFF15IAgW9QzMmKwaU4RXVjvelu/Wo9bmFQ2TENMoVDb
fcxgAgBhcAAAAB4AQhABAAAANQAAADxFSUVOTEhBTEhHSU1IR0RPTE1JTUFFSExDS0FBLmRyZXcu
YWRhbXNAb3JhY2xlLmNvbT4AAAAACwABgAggBgAAAAAAwAAAAAAAAEYAAAAAA4UAAAAAAAADAAOA
CCAGAAAAAADAAAAAAAAARgAAAAAQhQAAAAAAAAMAB4AIIAYAAAAAAMAAAAAAAABGAAAAAFKFAABz
eQEAHgAJgAggBgAAAAAAwAAAAAAAAEYAAAAAVIUAAAEAAAAEAAAAOS4wAAsADYAIIAYAAAAAAMAA
AAAAAABGAAAAAIKFAAABAAAACwA6gAggBgAAAAAAwAAAAAAAAEYAAAAADoUAAAAAAAADADyACCAG
AAAAAADAAAAAAAAARgAAAAARhQAAAAAAAAMAPYAIIAYAAAAAAMAAAAAAAABGAAAAABiFAAAAAAAA
CwBSgAggBgAAAAAAwAAAAAAAAEYAAAAABoUAAAAAAAADAFOACCAGAAAAAADAAAAAAAAARgAAAAAB
hQAAAAAAAAIB+A8BAAAAEAAAAJanzGi3ocRKqAHMBJWnOeACAfoPAQAAABAAAACWp8xot6HESqgB
zASVpzngAgH7DwEAAACiAAAAAAAAADihuxAF5RAaobsIACsqVsIAAFBTVFBSWC5ETEwAAAAAAAAA
AE5JVEH5v7gBAKoAN9luAAAAQzpcRG9jdW1lbnRzIGFuZCBTZXR0aW5nc1xkcmFkYW1zLlNULVVT
RVJTXExvY2FsIFNldHRpbmdzXEFwcGxpY2F0aW9uIERhdGFcTWljcm9zb2Z0XE91dGxvb2tcb3V0
bG9vay5wc3QAAAADAP4PBQAAAAMADTT9NwAAAgF/AAEAAAA1AAAAPEVJRU5MSEFMSEdJTUhHRE9M
TUlNQ0VITENLQUEuZHJldy5hZGFtc0BvcmFjbGUuY29tPgAAAAADAAYQgftXbQMABxDVIQAAAwAQ
EAAAAAADABEQAAAAAB4ACBABAAAAZQAAAFNPUlJZQUdBSU5JTkVNQUNTMjAtUSxUSEVUUkFDS0lO
R1dPUktTRVZFUllXSEVSRSxCVVQsRk9SU09NRVJFQVNPTixXSEVOVFJBQ0tJTkcsVEhFSElHSExJ
VENIQVJBQ1RFUkkAAAAAkSg=

- ------=_NextPart_000_0018_01C6BE39.A0B7C810
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
emacs-pretest-bug mailing list
emacs-pretest-bug@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-pretest-bug

- ------=_NextPart_000_0018_01C6BE39.A0B7C810--
------- End of forwarded message -------

Re: [drew.adams@oracle.com: RE: moving overlay loses its priority?]

[Chong Yidong]

Richard Stallman <rms@gnu.org> writes:

> Would someone please DTRT and ack?

The original bug report is to complicated to work with, but the basic
problem (as noted by Kim Storm) is that inside a `track-mouse' form,
`read-event' is not returning mouse motion events if there is a
`help-echo' text property present (NOT `mouse-face' as mistakenly
stated in a previous thread).

I suspect the problem lies in note_mouse_movement in xterm.c, and that
it is related to the "tooltip frame" problems in that code that we
dealt with about a year ago.

Here is a simple way to reproduce the problem.

;; F2 to create the test buffer, then F3 to report mouse movements
(global-set-key [f2] 'test-mouse-track)
(global-set-key [f3] 'report-mouse-movements)

(defun test-mouse-track ()
  (interactive)
  (with-output-to-temp-buffer "Foo"
    (set-buffer "Foo")
    (erase-buffer)
    (insert (propertize "Mouse tracking is stuck here"
			'help-echo "mouse-2: select this buffer"))))

(defun report-mouse-movements ()
  (interactive)
  (let (done read)
    (track-mouse
      (while (not done)
	(setq read (read-event))
	(if (eq (car-safe read) 'mouse-1)
	    (setq done t)
	  (message "%s" (prin1-to-string read)))))))

Re: [drew.adams@oracle.com: RE: moving overlay loses its priority?]

[Chong Yidong]

> The basic problem (as noted by Kim Storm) is that inside a
> `track-mouse' form, `read-event' is not returning mouse motion
> events if there is a `help-echo' text property present (NOT
> `mouse-face' as mistakenly stated in a previous thread).

I found the problem.  show_help_echo calls mouse-fixup-help-message,
which calls mouse-pixel-position, which calls XTmouse_position, whose
side-effect is to clear the mouse_moved flags of every frame.  The
documentation of XTmouse_position says that this is "so we can wait
for the next mouse movement", but it causes a bug if we are in the
middle of tracking the mouse.

I've checked in a fix into show_help_echo.  Now, when we are tracking
the mouse, we save the mouse_moved flag and restore it after the call
to mouse-fixup-help-message.

Re: [drew.adams@oracle.com: RE: moving overlay loses its priority?]

[Kim F. Storm]

Chong Yidong <cyd@stupidchicken.com> writes:

>> The basic problem (as noted by Kim Storm) is that inside a
>> `track-mouse' form, `read-event' is not returning mouse motion
>> events if there is a `help-echo' text property present (NOT
>> `mouse-face' as mistakenly stated in a previous thread).
>
> I found the problem.  show_help_echo calls mouse-fixup-help-message,
> which calls mouse-pixel-position, which calls XTmouse_position, whose
> side-effect is to clear the mouse_moved flags of every frame.  The
> documentation of XTmouse_position says that this is "so we can wait
> for the next mouse movement", but it causes a bug if we are in the
> middle of tracking the mouse.
>
> I've checked in a fix into show_help_echo.  Now, when we are tracking
> the mouse, we save the mouse_moved flag and restore it after the call
> to mouse-fixup-help-message.

Great.  Thanks for fixing this.


-- 
Kim F. Storm <storm@cua.dk> http://www.cua.dk

Re: [drew.adams@oracle.com: RE: moving overlay loses its priority?]

[Richard Stallman]

    I've checked in a fix into show_help_echo.  Now, when we are tracking
    the mouse, we save the mouse_moved flag and restore it after the call
    to mouse-fixup-help-message.

Thanks for fixing this.