Mercurial > emacs
comparison lisp/finder.el @ 48408:2eb7a3846b4c
(finder-commentary): Use buffer *Finder-package*.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 18 Nov 2002 04:56:45 +0000 |
| parents | 3c21e01f4d87 |
| children | 8155d7b714f2 |
comparison
equal
deleted
inserted
replaced
| 48407:243072643e17 | 48408:2eb7a3846b4c |
|---|---|
| 271 (cons (or find-function-source-path load-path) | 271 (cons (or find-function-source-path load-path) |
| 272 (find-library-suffixes))))) | 272 (find-library-suffixes))))) |
| 273 (let* ((str (lm-commentary (find-library-name file)))) | 273 (let* ((str (lm-commentary (find-library-name file)))) |
| 274 (if (null str) | 274 (if (null str) |
| 275 (error "Can't find any Commentary section")) | 275 (error "Can't find any Commentary section")) |
| 276 (pop-to-buffer "*Finder*") | 276 ;; This used to use *Finder* but that would clobber the |
| 277 ;; directory of categories. | |
| 278 (pop-to-buffer "*Finder-package*") | |
| 277 (setq buffer-read-only nil) | 279 (setq buffer-read-only nil) |
| 278 (erase-buffer) | 280 (erase-buffer) |
| 279 (insert str) | 281 (insert str) |
| 280 (goto-char (point-min)) | 282 (goto-char (point-min)) |
| 281 (delete-blank-lines) | 283 (delete-blank-lines) |