Commit 9f4aee27 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent ca205aa3
......@@ -918,7 +918,7 @@ a case-insensitive match is tried."
(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)))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment