Mercurial > emacs
comparison lisp/finder.el @ 18284:21a40db838e2
(finder-list-keywords): Create *Finder* buffer if nec.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 17 Jun 1997 21:51:35 +0000 |
| parents | 37ff8dfff53b |
| children | 3854a35dffd8 |
comparison
equal
deleted
inserted
replaced
| 18283:3909cd22d5e5 | 18284:21a40db838e2 |
|---|---|
| 172 (defun finder-list-keywords () | 172 (defun finder-list-keywords () |
| 173 "Display descriptions of the keywords in the Finder buffer." | 173 "Display descriptions of the keywords in the Finder buffer." |
| 174 (interactive) | 174 (interactive) |
| 175 (if (get-buffer "*Finder*") | 175 (if (get-buffer "*Finder*") |
| 176 (pop-to-buffer "*Finder*") | 176 (pop-to-buffer "*Finder*") |
| 177 (pop-to-buffer (set-buffer "*Finder*")) | 177 (pop-to-buffer (set-buffer (get-buffer-create "*Finder*"))) |
| 178 (finder-mode) | 178 (finder-mode) |
| 179 (setq buffer-read-only nil) | 179 (setq buffer-read-only nil) |
| 180 (erase-buffer) | 180 (erase-buffer) |
| 181 (mapcar | 181 (mapcar |
| 182 (lambda (assoc) | 182 (lambda (assoc) |