[Emacs-diffs] Changes to emacs/lisp/info.el

[Juri Linkov]

Index: emacs/lisp/info.el
diff -c emacs/lisp/info.el:1.401 emacs/lisp/info.el:1.402
*** emacs/lisp/info.el:1.401    Wed Sep  8 10:28:17 2004
--- emacs/lisp/info.el  Tue Oct  5 04:23:17 2004
***************
*** 1729,1735 ****
        (let ((inhibit-read-only t))
          (erase-buffer)
          (goto-char (point-min))
!         (insert "\n\^_\nFile: history Node: Top, Up: (dir)\n\n")
          (insert "Recently Visited Nodes\n**********************\n\n")
          (insert "* Menu:\n\n")
          (let ((hl (delete '("history" "Top") Info-history-list)))
--- 1729,1735 ----
        (let ((inhibit-read-only t))
          (erase-buffer)
          (goto-char (point-min))
!         (insert "\n\^_\nFile: history,  Node: Top,  Up: (dir)\n\n")
          (insert "Recently Visited Nodes\n**********************\n\n")
          (insert "* Menu:\n\n")
          (let ((hl (delete '("history" "Top") Info-history-list)))
***************
*** 1749,1774 ****
    "Go to a node with table of contents of the current Info file.
  Table of contents is created from the tree structure of menus."
    (interactive)
!   (let ((curr-file Info-current-file)
!         (curr-node Info-current-node)
          p)
      (with-current-buffer (get-buffer-create " *info-toc*")
        (let ((inhibit-read-only t)
              (node-list (Info-build-toc curr-file)))
          (erase-buffer)
          (goto-char (point-min))
!         (insert "\n\^_\nFile: toc Node: Top, Up: (dir)\n\n")
          (insert "Table of Contents\n*****************\n\n")
!         (insert "*Note Top::\n")
          (Info-insert-toc
           (nth 2 (assoc "Top" node-list)) ; get Top nodes
!          node-list 0 (substring-no-properties curr-file)))
        (if (not (bobp))
            (let ((Info-hide-note-references 'hide)
                  (Info-fontify-visited-nodes nil))
              (Info-mode)
              (setq Info-current-file "toc" Info-current-node "Top")
!             (Info-fontify-node)))
        (goto-char (point-min))
        (if (setq p (search-forward (concat "*Note " curr-node ":") nil t))
            (setq p (- p (length curr-node) 2))))
--- 1749,1779 ----
    "Go to a node with table of contents of the current Info file.
  Table of contents is created from the tree structure of menus."
    (interactive)
!   (let ((curr-file (substring-no-properties Info-current-file))
!         (curr-node (substring-no-properties Info-current-node))
          p)
      (with-current-buffer (get-buffer-create " *info-toc*")
        (let ((inhibit-read-only t)
              (node-list (Info-build-toc curr-file)))
          (erase-buffer)
          (goto-char (point-min))
!         (insert "\n\^_\nFile: toc,  Node: Top,  Up: (dir)\n\n")
          (insert "Table of Contents\n*****************\n\n")
!         (insert "*Note Top: (" curr-file ")Top.\n")
          (Info-insert-toc
           (nth 2 (assoc "Top" node-list)) ; get Top nodes
!          node-list 0 curr-file))
        (if (not (bobp))
            (let ((Info-hide-note-references 'hide)
                  (Info-fontify-visited-nodes nil))
              (Info-mode)
              (setq Info-current-file "toc" Info-current-node "Top")
!             (goto-char (point-min))
!             (narrow-to-region (or (re-search-forward "\n[\^_\f]\n" nil t)
!                                   (point-min))
!                               (point-max))
!             (Info-fontify-node)
!             (widen)))
        (goto-char (point-min))
        (if (setq p (search-forward (concat "*Note " curr-node ":") nil t))
            (setq p (- p (length curr-node) 2))))
***************
*** 1789,1802 ****
  
  (defun Info-build-toc (file)
    "Build table of contents from menus of Info FILE and its subfiles."
-   (if (equal file "dir")
-       (error "Table of contents for Info directory is not supported yet"))
    (with-temp-buffer
!     (let* ((default-directory (or (and (stringp file)
!                                        (file-name-directory
!                                         (setq file (Info-find-file file))))
                                    default-directory))
!            (main-file file)
             (sections '(("Top" "Top")))
             nodes subfiles)
        (while (or main-file subfiles)
--- 1794,1805 ----
  
  (defun Info-build-toc (file)
    "Build table of contents from menus of Info FILE and its subfiles."
    (with-temp-buffer
!     (let* ((file (and (stringp file) (Info-find-file file)))
!            (default-directory (or (and (stringp file)
!                                        (file-name-directory file))
                                    default-directory))
!            (main-file (and (stringp file) file))
             (sections '(("Top" "Top")))
             nodes subfiles)
        (while (or main-file subfiles)