texinfo-format-buffer doesn't produce info index properly

[Shigeru Fukaya]

I found `texinfo-format-buffer' doesn't produce proper INFO index from
elisp.texi and relating files attached with emacs.
(emacs-vesion 22.1 (and also current CVS top, Rev. 1.89))

In elisp.texi, written as

    @synindex cp fn
    @syncodeindex vr fn
    @syncodeindex ky fn
    @syncodeindex pg fn

and, in index.texi (included in elisp.texi).

    @printindex fn

But, no Vaviable's index is prodeced into elisp info file.

It is because the settings of @synindex and @syncodeindex commands are
ignored later at the index making time.


I change the function `texinfo-format-printindex' for the while
followingly:

(defun texinfo-format-printindex ()
  (let* ((arg (texinfo-parse-arg-discard))
         (fmt (cdr (assoc arg texinfo-short-index-format-cmds-alist)))
         (index-list (delq nil (mapcar (lambda (e)
                                         (and (eq fmt (get (cdr e)
'texinfo-format))
                                              (cdr (assoc (car e)
texinfo-indexvar-alist))))
                                       texinfo-short-index-cmds-alist)))
         (indexelts (apply #'append nil (mapcar #'symbol-value index-list)))
         opoint)
    (insert "\n* Menu:\n\n")
    (setq opoint (point))
    (texinfo-print-index nil indexelts)
    (if (memq system-type '(vax-vms windows-nt ms-dos))
        (texinfo-sort-region opoint (point))
      (shell-command-on-region opoint (point) "sort -fd" 1))))


Regards,
Shigeru