Commit 2d7b0db7 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(finder-list-matches): Create *Finder Category* buffer.

parent 1eb569c5
...@@ -193,7 +193,7 @@ arguments compiles from `load-path'." ...@@ -193,7 +193,7 @@ arguments compiles from `load-path'."
(finder-summary))) (finder-summary)))
(defun finder-list-matches (key) (defun finder-list-matches (key)
(pop-to-buffer (set-buffer "*Finder Category*")) (pop-to-buffer (set-buffer (get-buffer-create "*Finder Category*")))
(finder-mode) (finder-mode)
(setq buffer-read-only nil) (setq buffer-read-only nil)
(erase-buffer) (erase-buffer)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment