diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-07-24 01:26:23 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-07-24 01:26:23 +0000 |
| commit | d6be34f360819e37e218c9368ee3ce0349127106 (patch) | |
| tree | 0e3394d16cbc09e6daa79c0b46f62e098e9b00cd | |
| parent | 6654e1b15eaf93232e8c4051c5d67d852e7d9ee2 (diff) | |
| download | emacs-d6be34f360819e37e218c9368ee3ce0349127106.tar.gz | |
(Info-current-file): Doc fix.
(Info-find-node): Set Info-current-file to file name as specified.
| -rw-r--r-- | lisp/info.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/info.el b/lisp/info.el index d5a53fbcb9c..fd08a00e25e 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -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) |