andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Richard M. Stallman 2002-11-18 04:56:45 +00:00
parent 4cd9f28262
commit 63fe0a9878
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/finder.el
View file

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