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

9f4aee27 · Richard M. Stallman · ca205aa3 · 9f4aee27
Commit 9f4aee27 authored Dec 29, 2003 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

lisp/info.el lisp/info.el +1 -1

No files found.
--- 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)))))