GNU bug report logs - #18011
24.4.50; REGRESSION, `help-echo' function value now needs `save-excursion'

Previous Next

Full log

View this message in rfc822 format

From: help-debbugs <at> gnu.org (GNU bug Tracking System)
To: Glenn Morris <rgm <at> gnu.org>
Cc: tracker <at> debbugs.gnu.org
Subject: bug#18011: closed (24.4.50; REGRESSION, `help-echo' function
 value now needs `save-excursion')
Date: Sun, 13 Jul 2014 23:42:03 +0000

[Message part 1 (text/plain, inline)]

Your message dated Sun, 13 Jul 2014 19:41:17 -0400
with message-id <yhmwccyggy.fsf <at> fencepost.gnu.org>
and subject line Re: bug#18011: 24.4.50; REGRESSION, `help-echo' function value now needs `save-excursion'
has caused the debbugs.gnu.org bug report #18011,
regarding 24.4.50; REGRESSION, `help-echo' function value now needs `save-excursion'
to be marked as done.

(If you believe you have received this mail in error, please contact
help-debbugs <at> gnu.org.)


-- 
18011: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=18011
GNU Bug Tracking System
Contact help-debbugs <at> gnu.org with problems

[Message part 2 (message/rfc822, inline)]

From: Drew Adams <drew.adams <at> oracle.com>
To: bug-gnu-emacs <at> gnu.org
Subject: 24.4.50; REGRESSION, `help-echo' function value now needs
 `save-excursion'
Date: Sun, 13 Jul 2014 16:11:24 -0700 (PDT)

I have some code that uses a function value for `help-echo' in Dired
buffers.  It works fine in Emacs 24.3 and prior.  In later builds it has
this problem: When you press mouse-1 and hold it down on a date field in
Dired, point is not set there as it should be.  Instead, the text cursor
moves with the mouse after you do that.

The oldest post-24.3 build I have is this one, and it exhibits the
problem (as do recent builds):

In GNU Emacs 24.3.50.1 (i386-mingw-nt6.1.7601)
 of 2013-05-14 on ODIEONE
Bzr revision: 112586 juri <at> jurta.org-20130514233814-nnkh1ymiqgoq2fk6
Windowing system distributor `Microsoft Corp.', version 6.1.7601
Configured using:
 `configure --with-gcc (4.7) --no-opt --enable-checking --cflags
 -IC:/Devel/emacs/build/include --ldflags -LC:/Devel/emacs/build/lib'

Recipe to repro the problem from emacs -Q:

1. Evaluate this code:

(defun my-help (window buffer pos)
  (with-current-buffer buffer (goto-char pos)))

(defun dired-insert-set-properties (beg end)
  (save-excursion
    (goto-char beg)
    (while (< (point) end)
      (ignore-errors
	(if (not (dired-move-to-filename))
	    (unless (or (looking-at-p "^$")
			(looking-at-p dired-subdir-regexp))
	      (put-text-property (line-beginning-position)
				 (1+ (line-end-position))
				 'invisible 'dired-hide-details-information))
	  (put-text-property (+ (line-beginning-position) 1) (1- (point))
			     'invisible 'dired-hide-details-detail)
	  (add-text-properties ; @@@@@@@
	   (line-beginning-position) (line-end-position)
	   '(mouse-face highlight help-echo my-help))
	  ;; (add-text-properties
	  ;;  (point)
	  ;;  (progn
	  ;;    (dired-move-to-end-of-filename)
	  ;;    (point))
	  ;;  '(mouse-face
	  ;;    highlight
	  ;;    dired-filename t
	  ;;    ;; help-echo "mouse-2: visit this file in other window"))
	  (when (< (+ (point) 4) (line-end-position))
	    (put-text-property (+ (point) 4) (line-end-position)
			       'invisible 'dired-hide-details-link))))
      (forward-line 1))))

2. Then press & hold mouse-1 on a date field in Dired.  Release mouse-1
   and move the mouse.  You can see that point was not set: the text
   cursor follows the mouse.

The change above to the original `dired-insert-set-properties' is just
to substitute the `add-text-properties' sexp indicated by `@@@@@@@' for
the one that is commented out.  The two differences are these:

1. `mouse-face' is put on the whole line, not just the file-name part.

2. The value of `help-echo' is a function, `my-help', and that function
   uses `goto-char'.

I've fixed my code by wrapping the `goto-char' in `save-excursion'.
But I suspect that that workaround papers over a bug (regression).  Why
should a `help-echo' function need to `save-excursion'?

Note that if the mouse-face is not placed over the place where you click
(in the test, it is on the whole line, and you click on the date field)
then there is no problem.

HTH.  Close the bug if you don't care about this - I have my fix.


In GNU Emacs 24.4.50.1 (i686-pc-mingw32)
 of 2014-06-28 on ODIEONE
Bzr revision: 117431 rgm <at> gnu.org-20140628015517-eku6hj8mpgcvfnso
Windowing system distributor `Microsoft Corp.', version 6.1.7601
Configured using:
 `configure --prefix=/c/Devel/emacs/snapshot/trunk
 --enable-checking=yes,glyphs 'CFLAGS=-O0 -g3'
 LDFLAGS=-Lc:/Devel/emacs/lib 'CPPFLAGS=-DGC_MCHECK=1
 -Ic:/Devel/emacs/include''

[Message part 3 (message/rfc822, inline)]

From: Glenn Morris <rgm <at> gnu.org>
To: 18011-done <at> debbugs.gnu.org
Subject: Re: bug#18011: 24.4.50;
 REGRESSION, `help-echo' function value now needs `save-excursion'
Date: Sun, 13 Jul 2014 19:41:17 -0400

Drew Adams wrote:

> Why should a `help-echo' function need to `save-excursion'?

I can't think why it should NOT need to, if it moves point;
nor can I find any Emacs release where it does not need to.
I tested back to 22.3 with

(put-text-property 1 10 'help-echo 'foo)

(defun foo (w o p)
  (goto-char (point-max))
  "foo")

> HTH.  Close the bug if you don't care about this - I have my fix.

Thanks.

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.