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

This commit is contained in:
Richard M. Stallman 2003-12-29 19:18:53 +00:00
parent ca205aa366
commit 9f4aee27ca

View file

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