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

(finder-list-matches): Create Finder Category buffer.
2d7b0db7 · Richard M. Stallman · 1eb569c5 · 2d7b0db7
Commit 2d7b0db7 authored Jul 09, 1997 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

lisp/finder.el lisp/finder.el +1 -1

No files found.
--- a/lisp/finder.el
+++ b/lisp/finder.el
@@ -193,7 +193,7 @@ arguments compiles from `load-path'."
    (finder-summary)))

 (defun finder-list-matches (key)
-  (pop-to-buffer (set-buffer "*Finder Category*"))
+  (pop-to-buffer (set-buffer (get-buffer-create "*Finder Category*")))
  (finder-mode)
  (setq buffer-read-only nil)
  (erase-buffer)