Mercurial > emacs
changeset 12646:cd83cf47be08
(Info-current-file): Doc fix.
(Info-find-node): Set Info-current-file to file name as specified.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 24 Jul 1995 01:26:23 +0000 |
| parents | 3ce3ca90e4a3 |
| children | b94ff6c62c5d |
| files | lisp/info.el |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/info.el Sun Jul 23 23:51:25 1995 +0000 +++ b/lisp/info.el Mon Jul 24 01:26:23 1995 +0000 @@ -101,7 +101,9 @@ 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 @@ (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)