From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 24 Oct 1995 16:36:52 +0000 (+0000)
Subject: (Info-following-node-name, Info-extract-menu-node-name)
X-Git-Tag: emacs-19.34~2573
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=70d78eb6ea4275541d12c740f5020975e4f5f01f;p=emacs.git

(Info-following-node-name, Info-extract-menu-node-name)
(Info-select-node): Use buffer-substring-no-properties.
---

diff --git a/lisp/info.el b/lisp/info.el
index 4019d235a76..13447f330b3 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -582,10 +582,10 @@ In standalone mode, \\<Info-mode-map>\\[Info-exit] exits Emacs itself."
    ;; Get nodename spelled as it is in the node.
    (re-search-forward "Node:[ \t]*")
    (setq Info-current-node
-	 (buffer-substring (point)
-			   (progn
-			    (skip-chars-forward "^,\t\n")
-			    (point))))
+	 (buffer-substring-no-properties (point)
+					 (progn
+					  (skip-chars-forward "^,\t\n")
+					  (point))))
    (Info-set-mode-line)
    ;; Find the end of it, and narrow.
    (beginning-of-line)
@@ -792,7 +792,7 @@ In standalone mode, \\<Info-mode-map>\\[Info-exit] exits Emacs itself."
 ;; saying which chas may appear in the node name.
 (defun Info-following-node-name (&optional allowedchars)
   (skip-chars-forward " \t")
-  (buffer-substring
+  (buffer-substring-no-properties
    (point)
    (progn
      (while (looking-at (concat "[" (or allowedchars "^,\t\n") "]"))
@@ -916,7 +916,7 @@ NAME may be an abbreviation of the reference name."
     (forward-char 1)
     (setq str
 	  (if (looking-at ":")
-	      (buffer-substring beg (1- (point)))
+	      (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))