Mercurial > emacs
comparison lisp/finder.el @ 102450:f9bc8b29986c
(finder-commentary): Don't delete other windows (Bug#2291).
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sun, 08 Mar 2009 19:54:32 +0000 |
| parents | a9dc0e7c3f2b |
| children | 658336850f93 |
comparison
equal
deleted
inserted
replaced
| 102449:35a5c005ad00 | 102450:f9bc8b29986c |
|---|---|
| 284 (find-library-suffixes))))) | 284 (find-library-suffixes))))) |
| 285 (let ((str (lm-commentary (find-library-name file)))) | 285 (let ((str (lm-commentary (find-library-name file)))) |
| 286 (or str (error "Can't find any Commentary section")) | 286 (or str (error "Can't find any Commentary section")) |
| 287 ;; This used to use *Finder* but that would clobber the | 287 ;; This used to use *Finder* but that would clobber the |
| 288 ;; directory of categories. | 288 ;; directory of categories. |
| 289 (delete-other-windows) | |
| 290 (pop-to-buffer "*Finder-package*") | 289 (pop-to-buffer "*Finder-package*") |
| 291 (setq buffer-read-only nil | 290 (setq buffer-read-only nil |
| 292 buffer-undo-list t) | 291 buffer-undo-list t) |
| 293 (erase-buffer) | 292 (erase-buffer) |
| 294 (insert str) | 293 (insert str) |