Re: [agj@alum.mit.edu: Re: ":" in Scheme names.]

[Aubrey Jaffer <agj@alum.mit.edu>]

 | From: Thien-Thi Nguyen <ttn@glug.org>
 | Date: Sun, 19 Jan 2003 21:44:03 -0500
 | 
 |    From: Aubrey Jaffer <agj@alum.mit.edu>
 |    Date: Sun, 19 Jan 2003 16:59:45 -0500 (EST)
 | 
 |    If the patch improves some (but not all) behaviors, then it is still
 |    worth releasing.
 | 
 | yes.  which behaviors does it improve?  what goes in the change log?

	(Info-index): Fixed for index names containing colons.

 |    If you show me how to provoke the remaining misbehaviors, then I can
 |    look at fixing them.
 | 
 | here is an interactive test case, w/ expected output:
 | 
 | evaluate: (info "/usr/share/info/slib.tar.gz")
 | 
 | then, 
 | ; type			; expect
 |   i RET			  buffer changes to show index
 |   C-s array-indexes RET   point moves to match
 |   m RET			  buffer changes to show array mapping funcs
 |   l			  back to index
 |   C-s batch: RET          point moves to match
 |   m RET			  buffer changes to show batch funcs

Appended is a patch to Info-menu so it grabs the correct default.
Also patched is Info-extract-menu-item so it goes to the ": ".  But I
still get an error from Info-find-node-2 with the wrong value for
nodename:

  let: No such anchor in tag table or node in tag table or file: modify-table: HTML Tables

Somewhere there is a forward search to ":"; but I lost the trail of
where this happens to nodename.

Here is an unrelated bug in Info-follow-nearest-node:
evaluate: (info "/usr/share/info/slib.tar.gz")
then, 
; type			; expect
  i RET			  buffer changes to show index
  C-s array-indexes RET   point moves to match
  RET			  buffer changes to show array mapping funcs
  l			  back to index
  RET			  buffer changes to Getopt !!

			      -=-=-=-=-

cd /usr/share/emacs/21.2/lisp/
diff -c /usr/share/emacs/21.2/lisp/info.el\~ /usr/share/emacs/21.2/lisp/info.el
*** /usr/share/emacs/21.2/lisp/info.el~	Sun Jan 19 17:31:53 2003
--- /usr/share/emacs/21.2/lisp/info.el	Tue Jan 21 00:33:40 2003
***************
*** 1477,1483 ****
  	    (save-excursion
  	      (goto-char p)
  	      (end-of-line)
! 	      (if (re-search-backward "\n\\* +\\([^:\t\n]*\\):" beg t)
  		  (setq default (match-string-no-properties 1))))))
       (let ((item nil))
         (while (null item)
--- 1477,1483 ----
  	    (save-excursion
  	      (goto-char p)
  	      (end-of-line)
! 	      (if (re-search-backward "\n\\* +\\([^\t\n]+\\): " beg t)
  		  (setq default (match-string-no-properties 1))))))
       (let ((item nil))
         (while (null item)
***************
*** 1509,1515 ****
  	(goto-char (point-min))
  	(or (search-forward "\n* menu:" nil t)
  	    (error "No menu in this node"))
! 	(or (re-search-forward (concat "\n\\* +" menu-item ":") nil t)
  	    (re-search-forward (concat "\n\\* +" menu-item) nil t)
  	    (error "No such item in menu"))
  	(beginning-of-line)
--- 1509,1515 ----
  	(goto-char (point-min))
  	(or (search-forward "\n* menu:" nil t)
  	    (error "No menu in this node"))
! 	(or (re-search-forward (concat "\n\\* +" menu-item ": ") nil t)
  	    (re-search-forward (concat "\n\\* +" menu-item) nil t)
  	    (error "No such item in menu"))
  	(beginning-of-line)

Diff finished at Tue Jan 21 00:33:44