From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 17 Jun 1997 21:51:35 +0000 (+0000)
Subject: (finder-list-keywords): Create *Finder* buffer if nec.
X-Git-Tag: emacs-20.1~1662
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b32410669ed3325bd35fbd3753924a9ac7e6cac4;p=emacs.git

(finder-list-keywords): Create *Finder* buffer if nec.
---

diff --git a/lisp/finder.el b/lisp/finder.el
index 799a681418c..13cedc683a5 100644
--- a/lisp/finder.el
+++ b/lisp/finder.el
@@ -174,7 +174,7 @@ arguments compiles from `load-path'."
   (interactive)
   (if (get-buffer "*Finder*")
       (pop-to-buffer "*Finder*")
-    (pop-to-buffer (set-buffer "*Finder*"))
+    (pop-to-buffer (set-buffer (get-buffer-create "*Finder*")))
     (finder-mode)
     (setq buffer-read-only nil)
     (erase-buffer)