Mercurial > emacs
comparison lisp/finder.el @ 53501:97bc08aa2492
(finder-commentary): Call delete-other-windows.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 05 Jan 2004 13:58:44 +0000 |
| parents | acdfe93d0ae8 |
| children | b7f0abc3ce60 |
comparison
equal
deleted
inserted
replaced
| 53500:530a52a3971b | 53501:97bc08aa2492 |
|---|---|
| 280 (let* ((str (lm-commentary (find-library-name file)))) | 280 (let* ((str (lm-commentary (find-library-name file)))) |
| 281 (if (null str) | 281 (if (null str) |
| 282 (error "Can't find any Commentary section")) | 282 (error "Can't find any Commentary section")) |
| 283 ;; This used to use *Finder* but that would clobber the | 283 ;; This used to use *Finder* but that would clobber the |
| 284 ;; directory of categories. | 284 ;; directory of categories. |
| 285 (delete-other-windows) | |
| 285 (pop-to-buffer "*Finder-package*") | 286 (pop-to-buffer "*Finder-package*") |
| 286 (setq buffer-read-only nil) | 287 (setq buffer-read-only nil) |
| 287 (erase-buffer) | 288 (erase-buffer) |
| 288 (insert str) | 289 (insert str) |
| 289 (goto-char (point-min)) | 290 (goto-char (point-min)) |