From d6be34f360819e37e218c9368ee3ce0349127106 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 24 Jul 1995 01:26:23 +0000 Subject: [PATCH] (Info-current-file): Doc fix. (Info-find-node): Set Info-current-file to file name as specified. --- lisp/info.el | 7 ++++--- 1 file 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-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) -- 2.39.2