bug#1848: 23.0.60; isearch-forward fails to find colon characters in Info buffers

[Juri Linkov <juri@jurta.org>]

>>> > I found it a bit confusing that setting search-invisible to t makes no
>>> > difference to the behaviour here. Should Info-search-success-function
>>> > respect search-invisible?
>>>
>>> I'd say yes.  Does anyone object?
>
>> I don't object, but wouldn't it be confusing to have it "find" the
>> colon, without the colon being visible?  Perhaps we should make it
>> temporarily visible?
>
> Oh, yes, definitely.  If we can't temporarily show the invisible text,
> then we shouldn't obey (eq search-invisible 'open), but we should still
> obey (eq search-invisible t).

Then the following patch does this.  It checks only for
(eq search-invisible t), not for 'open.

BTW, I'm not sure if we should also skip the breadcrumbs line.
I currently have no problems with the search matching at the
breadcrumbs line.  So maybe we should wait for a request
from someone who has a problem with breadcrumbs.

Index: lisp/info.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/info.el,v
retrieving revision 1.557
diff -c -w -b -r1.557 info.el
*** lisp/info.el	10 Jan 2009 10:42:08 -0000	1.557
--- lisp/info.el	14 Jan 2009 00:59:59 -0000
***************
*** 1868,1878 ****
      (let ((backward (< found beg-found)))
        (not
         (or
  	(if backward
  	    (or (text-property-not-all found beg-found 'invisible nil)
  		(text-property-not-all found beg-found 'display nil))
  	  (or (text-property-not-all beg-found found 'invisible nil)
! 	      (text-property-not-all beg-found found 'display nil)))
  	;; Skip node header line
  	(and (save-excursion (forward-line -1)
  			     (looking-at "\^_"))
--- 1868,1879 ----
      (let ((backward (< found beg-found)))
        (not
         (or
+ 	(and (not (eq search-invisible t))
  	     (if backward
  		 (or (text-property-not-all found beg-found 'invisible nil)
  		     (text-property-not-all found beg-found 'display nil))
  	       (or (text-property-not-all beg-found found 'invisible nil)
! 		   (text-property-not-all beg-found found 'display nil))))
  	;; Skip node header line
  	(and (save-excursion (forward-line -1)
  			     (looking-at "\^_"))

-- 
Juri Linkov
http://www.jurta.org/emacs/