bug#4854: 23.1.50; before-string overlay and show-paren-mode

[Stephen Berman <stephen.berman@gmx.net>]

Start Emacs with -Q, insert the following text into a buffer:

begin
(test)
end

then eval the following:

(defun my-test ()
  ""
  (interactive)
  (widen)
  (goto-char (point-min))
  (let ((begin (search-forward "begin")))
    (search-forward "end")
    (narrow-to-region (1+ begin) (line-beginning-position))
    (goto-char (point-min)))
  (unless (let ((ovlist (overlays-in (1- (point)) (1+ (point)))))
	    (when ovlist (overlay-get (car ovlist) 'before-string)))
    (let ((ov (make-overlay (point) (point) nil t t)))
      (overlay-put ov 'before-string "* "))))

(global-set-key "\C-cy" 'my-test)

and now type `C-c y' in the buffer with the inserted text.  The buffer
nows displays this:

* (test)

As expected, now repeating `C-c y' does not alter the display, i.e. does
not add more overlays.  Now enable show-paren-mode (e.g. by checking
"Paren Match Highlighting" in the Options menu).  Now repeating `C-c y'
display one additional "* " for each repetition (provided point remains
on `(').  Surprisingly, however, typing `M-x my-test' repeatedly does
not add any "* ".  In addition, typing a self-inserting character and
then deleting it has the effect that typing `C-c y' no longer adds "* ";
except after widening and removing the overlays: then repeating `C-c y'
adds "* " once only, as when show-paren-mode is disabled.

If the described behavior after enabling show-paren-mode is not a bug,
can anyone explain it?



In GNU Emacs 23.1.50.1 (i686-pc-linux-gnu, GTK+ Version 2.14.4)
 of 2009-10-27 on escher
Windowing system distributor `The X.Org Foundation', version 11.0.10502000
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: en_US.UTF-8
  value of $XMODIFIERS: @im=local
  locale-coding-system: utf-8-unix
  default enable-multibyte-characters: t