Mercurial > emacs
changeset 13287:f25084d29719
(Info-following-node-name, Info-extract-menu-node-name)
(Info-select-node): Use buffer-substring-no-properties.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 24 Oct 1995 16:36:52 +0000 |
| parents | b4d36420c837 |
| children | 2699145c01cb |
| files | lisp/info.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/info.el Tue Oct 24 16:29:45 1995 +0000 +++ b/lisp/info.el Tue Oct 24 16:36:52 1995 +0000 @@ -582,10 +582,10 @@ ;; 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 @@ ;; 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 @@ (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))