From 70d78eb6ea4275541d12c740f5020975e4f5f01f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 24 Oct 1995 16:36:52 +0000 Subject: [PATCH] (Info-following-node-name, Info-extract-menu-node-name) (Info-select-node): Use buffer-substring-no-properties. --- lisp/info.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) 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-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-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))