Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
70d78eb6
Commit
70d78eb6
authored
Oct 24, 1995
by
Richard M. Stallman
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(Info-following-node-name, Info-extract-menu-node-name)
(Info-select-node): Use buffer-substring-no-properties.
parent
2fa2413b
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
6 deletions
+6
-6
lisp/info.el
lisp/info.el
+6
-6
No files found.
lisp/info.el
View file @
70d78eb6
...
...
@@ -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
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment