From: yamaoka <yamaoka>
Date: Wed, 30 May 2001 22:28:42 +0000 (+0000)
Subject: * gnus-clfns.el (find-cl-run-time-functions): Remove an useless non-global
X-Git-Tag: t-gnus-6_15_3-02~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=89e0a06202e814c3c42241ef11bf1273092db577;p=elisp%2Fgnus.git-

* gnus-clfns.el (find-cl-run-time-functions): Remove an useless non-global
 var; scroll the output window automatically.
---

diff --git a/ChangeLog b/ChangeLog
index ca05aa6..68ea509 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-05-30  Katsumi Yamaoka <yamaoka@jpl.org>
+
+	* lisp/gnus-clfns.el (find-cl-run-time-functions): Remove an
+	useless non-global var; scroll the output window automatically.
+
 2001-05-31  TSUCHIYA Masatoshi  <tsuchiya@pine.kuee.kyoto-u.ac.jp>
 
 	* lisp/nnshimbun.el (nnshimbun-header-xref): Removed.
diff --git a/lisp/gnus-clfns.el b/lisp/gnus-clfns.el
index f3ee463..8e2ba3f 100644
--- a/lisp/gnus-clfns.el
+++ b/lisp/gnus-clfns.el
@@ -213,8 +213,8 @@ Emacs will not be reported."
 		     current-prefix-arg))
   (unless (interactive-p)
     (error "You should invoke `M-x find-cl-run-time-functions' interactively"))
-  (let (files clfns working giveup file lines forms fns pt form fn buffer
-	      buffer-file-format format-alist
+  (let (files clfns working file lines forms fns pt form fn buffer
+	      window height buffer-file-format format-alist
 	      insert-file-contents-post-hook insert-file-contents-pre-hook)
     (cond ((file-directory-p file-or-directory)
 	   (prog1
@@ -242,8 +242,7 @@ Emacs will not be reported."
 	  (let (emacs-lisp-mode-hook)
 	    (emacs-lisp-mode))
 	  (while files
-	    (setq giveup nil
-		  file (pop files)
+	    (setq file (pop files)
 		  lines (list nil 1))
 	    (message "Searching for CL run-time functions in: %s..."
 		     (file-name-nondirectory file))
@@ -312,17 +311,18 @@ Emacs will not be reported."
 						   form))
 					    forms))))
 		  (goto-char (point-max))
-		  (setq giveup t
-			lines (list (cadr lines)
+		  (setq lines (list (cadr lines)
 				    (count-lines (point-min) (point)))
 			fns '("Couldn't parse, check this file manually."))))
-	      (when (or fns giveup)
+	      (when fns
 		(if buffer
 		    (set-buffer buffer)
 		  (display-buffer
 		   (setq buffer (get-buffer-create
 				 (concat "*CL run-time functions in: "
 					 file-or-directory "*"))))
+		  (setq window (get-buffer-window buffer t)
+			height (window-height window))
 		  (set-buffer buffer)
 		  (erase-buffer))
 		(when file
@@ -338,6 +338,9 @@ Emacs will not be reported."
 		  (insert "\n              ")
 		  (end-of-line))
 		(insert "\n")
+		(when (zerop (forward-line (- 0 height -2)))
+		  (set-window-start window (point)))
+		(goto-char (point-max))
 		(sit-for 0)
 		(set-buffer working))))
 	  (kill-buffer working)