Re: [address@hidden: Re: ":" in Scheme names.]

[Aubrey Jaffer]

 | 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