procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(Info-current-file): Doc fix.

Browse source 
(Info-find-node): Set Info-current-file to file name as specified.
This commit is contained in:
Richard M. Stallman 1995-07-24 01:26:23 +00:00
parent 6654e1b15e
commit d6be34f360
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/info.el
View file

@ -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)