From 63fe0a9878c648687441fd23fda374cc97cbf01e Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Mon, 18 Nov 2002 04:56:45 +0000
Subject: [PATCH] (finder-commentary): Use buffer *Finder-package*.

---
 lisp/finder.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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)
-- 
2.39.2