(finder-commentary): Call delete-other-windows.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 14963f0ef8c9ece5fbb1734b3a2e16fe23bfd0fc..9a07b135eef5933d916e65fd36f8e5ca5d6e7eb6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2004-01-05  Richard M. Stallman  <rms@gnu.org>
+
+       * finder.el (finder-commentary): Call delete-other-windows.
+
+       * net/ange-ftp.el (ange-ftp-file-attributes):
+       Pass 2 args to ange-ftp-real-file-attributes only if ID-FORMAT non-nil.
+
 2004-01-04  Karl Berry  <karl@gnu.org>
 
        * emacs-lisp/copyright.el (copyright-regexp): allow the common

diff --git a/lisp/finder.el b/lisp/finder.el
index 2958f36c3d9f67f0278751c7c97385e170cea418..0bd001752fe3271cf611ac81082edc0419323956 100644 (file)
--- a/lisp/finder.el
+++ b/lisp/finder.el
@@ -282,6 +282,7 @@ FILE should be in a form suitable for passing to `locate-library'."
        (error "Can't find any Commentary section"))
     ;; This used to use *Finder* but that would clobber the
     ;; directory of categories.
+    (delete-other-windows)
     (pop-to-buffer "*Finder-package*")
     (setq buffer-read-only nil)
     (erase-buffer)