bug#10072: 23.3; invisible text

[Andrew Kurn <kurn@sfu.ca>]

I'm seeing a collection of funny behavior around invisible text.  Here are some examples.

emacs -Q -nw

(setq s "XXX,")

(put-text-property 0 3 'invisible t s)

(setq s (concat s s s))

(insert s)

If I move the cursor around, it will stop before an invisible X.  This is
not the advertised behavior.  (I discover its position by using Ctl-X =)

From sec. 38.6 of E-Lisp:
---
   However, if a command ends with point inside or immediately before
invisible text, the main editing loop moves point further forward or
further backward (in the same direction that the command already moved
it) until that condition is no longer true.  Thus, if the command moved
point back into an invisible range, Emacs moves point back to the
beginning of that range, and then back one more character.  If the
command moved point forward into an invisible range, Emacs moves point
forward up to the first visible character that follows the invisible
text.
---

Also, this:
(let ()
  (with-current-buffer (get-buffer-create "B")
    (goto-char 1)
    (insert s)
    (goto-char 1)
    (re-search-forward ",X")
)
)

will leave point at an invisible position, where it stays if
you pop up a window on B.

---

I have one more bug, which I'm having trouble reproducing, where an
/after-string/ of blanks attached to an overlay on invisible text displays fewer
than requested.  If you know what this one is already you can save me
some trouble.

---

Best regards,
Andrew




In GNU Emacs 23.3.1 (powerpc-apple-darwin8.11.0, NS apple-appkit-824.48)
 of 2011-11-14 on d142-058-206-239.surrey.sfu.ca
Windowing system distributor `Apple', version 10.3.824
configured using `configure  '--with-ns''

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: nil
  value of $XMODIFIERS: nil
  locale-coding-system: nil
  default enable-multibyte-characters: t

Major mode: Fundamental

Minor modes in effect:
  tooltip-mode: t
  mouse-wheel-mode: t
  tool-bar-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
n g SPC r M-! t r o u b l e SPC r e p r o d u c i n 
g , SPC w h e r e SPC a n SPC / a f t e r - s t r i 
n g / RET o f SPC b l a n k s SPC d i s p l a y s SPC 
f e w e r SPC t h a n SPC r e q u e s t e d . SPC SPC 
I f SPC y o u SPC k n o w SPC w h a t SPC t h i s SPC 
o n e SPC i s SPC a l r e a d y RET y o u SPC c a n 
SPC s a v e SPC m e SPC s o m e SPC t r o u b l e . 
ESC O D ESC O A ESC ] h L ESC ] h L ESC ] h L a t t 
a c h e d SPC t o SPC i n v i s i b l e SPC t e x t 
SPC ESC O A ESC O A ESC ] f E ESC x f i l l - r e g 
TAB RET RET RET ESC O A ESC O A ESC O A ESC ] h L ESC 
] h L ESC ] h L ESC ] h L a n SPC o v e r l a y s SPC 
o n SPC ESC O D ESC O D ESC O D ESC O D M-! ESC O A 
ESC O A ESC ] f E ESC x r e p o r t TAB RET

Recent messages:
Char: " (34, #o42, #x22) point=13 of 27056 (0%) column=7
Char: " (34, #o42, #x22) point=7 of 27056 (0%) column=6
Char: " (34, #o42, #x22) point=5 of 27056 (0%) column=4
Char: , (44, #o54, #x2c) point=6 of 27056 (0%) column=5
Char: " (34, #o42, #x22) point=7 of 27056 (0%) column=6 [2 times]
Auto-saving...done
(New file)
Mark set [6 times]
Auto-saving...done
Mark set [2 times]

Load-path shadows:
None found.

Features:
(shadow sort mail-extr message sendmail regexp-opt ecomplete rfc822 mml
mml-sec password-cache mm-decode mm-bodies mm-encode mailcap mail-parse
rfc2231 rfc2047 rfc2045 qp ietf-drums mailabbrev nnheader gnus-util
netrc time-date mm-util mail-prsvr gmm-utils wid-edit mailheader canlock
sha1 hex-util hashcash mail-utils emacsbug help-fns help-mode view
apropos info tooltip ediff-hook vc-hooks lisp-float-type mwheel ns-win
easymenu tool-bar dnd fontset image fringe lisp-mode register page
menu-bar rfn-eshadow timer select scroll-bar mldrag mouse jit-lock
font-lock syntax facemenu font-core frame cham georgian utf-8-lang
misc-lang vietnamese tibetan thai tai-viet lao korean japanese hebrew
greek romanian slovak czech european ethiopic indian cyrillic chinese
case-table epa-hook jka-cmpr-hook help simple abbrev loaddefs button
minibuffer faces cus-face files text-properties overlay md5 base64
format env code-pages mule custom widget hashtable-print-readable
backquote make-network-process ns multi-tty emacs)