From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 29 Dec 2003 19:18:53 +0000 (+0000)
Subject: (Info-insert-dir): Use assoc-string.
X-Git-Tag: ttn-vms-21-2-B4~8080
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9f4aee27cac6fa39fcae058ddd0a8fa6c701ffbb;p=emacs.git

(Info-insert-dir): Use assoc-string.
---

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)))))