diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-10-24 16:36:52 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-10-24 16:36:52 +0000 |
| commit | 70d78eb6ea4275541d12c740f5020975e4f5f01f (patch) | |
| tree | 78108b459e38dfac54988b1c65fcbe832d241dbd /lisp/info.el | |
| parent | 2fa2413b195daa5851a54fd086cc106179196c89 (diff) | |
| download | emacs-70d78eb6ea4275541d12c740f5020975e4f5f01f.tar.gz | |
(Info-following-node-name, Info-extract-menu-node-name)
(Info-select-node): Use buffer-substring-no-properties.
Diffstat (limited to 'lisp/info.el')
| -rw-r--r-- | lisp/info.el | 12 |
1 files 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-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)) |