(finder-commentary): Use buffer *Finder-package*.

1 files changed, 3 insertions, 1 deletions

diff --git a/lisp/finder.el b/lisp/finder.el
index fe3460b2169..7aaf99b811e 100644
--- a/lisp/finder.el
+++ b/lisp/finder.el
@@ -273,7 +273,9 @@ FILE should be in a form suitable for passing to `locate-library'."
   (let* ((str (lm-commentary (find-library-name file))))
     (if (null str)
         (error "Can't find any Commentary section"))
-    (pop-to-buffer "*Finder*")
+    ;; This used to use *Finder* but that would clobber the
+    ;; directory of categories.
+    (pop-to-buffer "*Finder-package*")
     (setq buffer-read-only nil)
     (erase-buffer)
     (insert str)