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