From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 30 Nov 2001 23:59:28 +0000 (+0000)
Subject: (Info-find-node-2): Don't call info-insert-file-contents
X-Git-Tag: ttn-vms-21-2-B4~18000
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f7d5479b3d89a3a3af03adf2ed66d3c6be56b40c;p=emacs.git

(Info-find-node-2): Don't call info-insert-file-contents
with the `visit' argument.
(Info-extract-menu-node-name): Use `replace-regexps-in-string'.
---

diff --git a/lisp/info.el b/lisp/info.el
index 2f9d6e02024..660af03c959 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -609,7 +609,7 @@ a case-insensitive match is tried."
               (erase-buffer)
               (if (eq filename t)
                   (Info-insert-dir)
-                (info-insert-file-contents filename t)
+                (info-insert-file-contents filename nil)
                 (setq default-directory (file-name-directory filename)))
               (set-buffer-modified-p nil)
               ;; See whether file has a tag table.  Record the location if yes.
@@ -1393,12 +1393,7 @@ FOOTNOTENAME may be an abbreviation of the reference name."
 	      (buffer-substring-no-properties beg (1- (point)))
 	    (skip-chars-forward " \t\n")
 	    (Info-following-node-name (if multi-line "^.,\t" "^.,\t\n"))))
-    (while (setq i (string-match "\n" str i))
-      (aset str i ?\ ))
-    ;; Collapse multiple spaces.
-    (while (string-match "  +" str)
-      (setq str (replace-match " " t t str)))
-    str))
+    (replace-regexp-in-string "[ \n]+" " " str)))
 
 ;; No one calls this.
 ;;(defun Info-menu-item-sequence (list)