master 059467ddc2: Catch more cases in info--ensure-not-in-directory-node

[Stefan Kangas]

branch: master
commit 059467ddc254a99afb59f04d85d2d2208ff64299
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    Catch more cases in info--ensure-not-in-directory-node
    
    * lisp/info.el (info--ensure-not-in-directory-node): Fix the case
    where "DIR" is in upper-case, and if 'Info-current-file' is an
    absolute file name.
    Problem reported by Eli Zaretskii <eliz@gnu.org>.
---
 lisp/info.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/info.el b/lisp/info.el
index 7d44a1cec1..05ad27e180 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -3330,7 +3330,8 @@ If FILE is nil, check the current Info file."
     (Info-goto-node node)))
 
 (defun info--ensure-not-in-directory-node ()
-  (if (equal Info-current-file "dir")
+  (if (equal (downcase (file-name-nondirectory Info-current-file))
+             "dir")
       (error (substitute-command-keys
               (concat "The Info directory node has no index; "
                       "type \\[Info-menu] to select a manual")))))