diff options
| author | Richard M. Stallman <rms@gnu.org> | 2003-12-29 19:18:53 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2003-12-29 19:18:53 +0000 |
| commit | 9f4aee27cac6fa39fcae058ddd0a8fa6c701ffbb (patch) | |
| tree | 7e7e70c5be21ea4bdf42a0067c68131c659beada /lisp | |
| parent | ca205aa366add88b1c3bac714a851da8c1db00d3 (diff) | |
| download | emacs-9f4aee27cac6fa39fcae058ddd0a8fa6c701ffbb.tar.gz emacs-9f4aee27cac6fa39fcae058ddd0a8fa6c701ffbb.tar.bz2 emacs-9f4aee27cac6fa39fcae058ddd0a8fa6c701ffbb.zip | |
(Info-insert-dir): Use assoc-string.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/info.el | 2 |
1 files changed, 1 insertions, 1 deletions
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))))) |