Commit 63fe0a98 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 4cd9f282
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment