(Info-insert-dir): Fix temp buffer leak bug.

diff --git a/lisp/info.el b/lisp/info.el
index 802fcf1642e0daef1c2cb294834b3594960642b9..b779bb41ca6b915aee45778db3955de5b3b6ccd7 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -1062,8 +1062,8 @@ a case-insensitive match is tried."
          ;; into the menu in the like-named node in the main buffer.
          (apply 'insert-buffer-substring (cdr node))))
       (Info-dir-remove-duplicates)
-      ;; Kill all the buffers we just made.
-      (mapc 'kill-buffer buffers)
+      ;; Kill all the buffers we just made, including the special one excised.
+      (mapc 'kill-buffer (cons buffer buffers))
       (goto-char (point-min))
       (if problems
          (message "Composing main Info directory...problems encountered, see `*Messages*'")