Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
d6be34f3
Commit
d6be34f3
authored
Jul 24, 1995
by
Richard M. Stallman
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(Info-current-file): Doc fix.
(Info-find-node): Set Info-current-file to file name as specified.
parent
6654e1b1
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
3 deletions
+4
-3
lisp/info.el
lisp/info.el
+4
-3
No files found.
lisp/info.el
View file @
d6be34f3
...
...
@@ -101,7 +101,9 @@ when you run a version of Emacs without installing it.")
These directories are not searched for merging the `dir' file."
)
(
defvar
Info-current-file
nil
"Info file that Info is now looking at, or nil."
)
"Info file that Info is now looking at, or nil.
This is the name that was specified in Info, not the actual file name.
It doesn't contain directory names or file name extensions added by Info."
)
(
defvar
Info-current-subfile
nil
"Info subfile that is actually in the *info* buffer now,
...
...
@@ -307,8 +309,7 @@ In standalone mode, \\<Info-mode-map>\\[Info-exit] exits Emacs itself."
(
match-end
0
))))
(
set-marker
Info-tag-table-marker
pos
))))
(
setq
Info-current-file
(
if
(
eq
filename
t
)
"dir"
(
file-name-sans-versions
buffer-file-name
)))))
(
if
(
eq
filename
t
)
"dir"
filename
))))
;; Use string-equal, not equal, to ignore text props.
(
if
(
string-equal
nodename
"*"
)
(
progn
(
setq
Info-current-node
nodename
)
...
...
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