From 059467ddc254a99afb59f04d85d2d2208ff64299 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Mon, 28 Nov 2022 01:32:01 +0100 Subject: [PATCH] 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 . --- lisp/info.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/info.el b/lisp/info.el index 7d44a1cec1d..05ad27e1801 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"))))) -- 2.39.5