diff options
| author | Richard M. Stallman | 2003-12-29 19:18:53 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2003-12-29 19:18:53 +0000 |
| commit | 9f4aee27cac6fa39fcae058ddd0a8fa6c701ffbb (patch) | |
| tree | 7e7e70c5be21ea4bdf42a0067c68131c659beada | |
| parent | ca205aa366add88b1c3bac714a851da8c1db00d3 (diff) | |
| download | emacs-9f4aee27cac6fa39fcae058ddd0a8fa6c701ffbb.tar.gz emacs-9f4aee27cac6fa39fcae058ddd0a8fa6c701ffbb.zip | |
(Info-insert-dir): Use assoc-string.
| -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." | |||
| 918 | (beginning-of-line) | 918 | (beginning-of-line) |
| 919 | (setq end (point)) | 919 | (setq end (point)) |
| 920 | (push (list nodename other beg end) this-buffer-nodes))) | 920 | (push (list nodename other beg end) this-buffer-nodes))) |
| 921 | (if (assoc-ignore-case "top" this-buffer-nodes) | 921 | (if (assoc-string "top" this-buffer-nodes t) |
| 922 | (setq nodes (nconc this-buffer-nodes nodes)) | 922 | (setq nodes (nconc this-buffer-nodes nodes)) |
| 923 | (setq problems t) | 923 | (setq problems t) |
| 924 | (message "No `top' node in %s" Info-dir-file-name))))) | 924 | (message "No `top' node in %s" Info-dir-file-name))))) |