From 9f4aee27cac6fa39fcae058ddd0a8fa6c701ffbb Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 29 Dec 2003 19:18:53 +0000 Subject: [PATCH] (Info-insert-dir): Use assoc-string. --- lisp/info.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/info.el b/lisp/info.el index 9616dbb1feb..3438320beb4 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -918,7 +918,7 @@ a case-insensitive match is tried." (beginning-of-line) (setq end (point)) (push (list nodename other beg end) this-buffer-nodes))) - (if (assoc-ignore-case "top" this-buffer-nodes) + (if (assoc-string "top" this-buffer-nodes t) (setq nodes (nconc this-buffer-nodes nodes)) (setq problems t) (message "No `top' node in %s" Info-dir-file-name))))) -- 2.39.2