From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 18 Nov 2002 04:56:45 +0000 (+0000)
Subject: (finder-commentary): Use buffer *Finder-package*.
X-Git-Tag: ttn-vms-21-2-B4~12381
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=63fe0a9878c648687441fd23fda374cc97cbf01e;p=emacs.git

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

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)