From: Stephen Eglen <stephen@gnu.org>
Date: Sun, 7 Jun 1998 17:46:15 +0000 (+0000)
Subject: (iswitchb-require-match, iswitchb-temp-buflist,	iswitchb-bufs-in-frame):
X-Git-Tag: emacs-20.3~698
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=02e526add790e9bdd90d91b8ee4288eda4e2766c;p=emacs.git

(iswitchb-require-match, iswitchb-temp-buflist,	iswitchb-bufs-in-frame):
 Variables declared with defvar to quieten the byte compiler.
---

diff --git a/lisp/iswitchb.el b/lisp/iswitchb.el
index bdbcb3fbe1f..a6bac08dd74 100644
--- a/lisp/iswitchb.el
+++ b/lisp/iswitchb.el
@@ -381,6 +381,16 @@ selected.")
 (defvar iswitchb-default nil
   "Default buffer for iswitchb.")
 
+;; The following variables are needed to keep the byte compiler quiet.
+(defvar iswitchb-require-match nil
+  "Non-nil if matching buffer must be selected.")
+
+(defvar iswitchb-temp-buflist nil
+  "Stores a temporary version of the buffer list being created.")
+
+(defvar iswitchb-bufs-in-frame nil
+  "List of the buffers visible in the current frame.")
+
 ;;; FUNCTIONS
 
 ;;; ISWITCHB KEYMAP 
@@ -653,7 +663,7 @@ in this list.  If DEFAULT is non-nil, and corresponds to an existing buffer,
 it is put to the start of the list."
   (setq iswitchb-buflist 
 	(let* ((iswitchb-current-buffers (iswitchb-get-buffers-in-frames))
-	      (buflist 
+	      (iswitchb-temp-buflist
 	       (delq nil 
 		     (mapcar
 		      (lambda (x)
@@ -664,23 +674,25 @@ it is put to the start of the list."
 				(memq b-name iswitchb-current-buffers)))
 			      b-name)))
 		      (buffer-list)))))
-	  (nconc buflist iswitchb-current-buffers)
+	  (nconc iswitchb-temp-buflist iswitchb-current-buffers)
 	  (run-hooks 'iswitchb-make-buflist-hook)
 	  ;; Should this be after the hooks, or should the hooks be the
 	  ;; final thing to be run?
 	  (if default
 	      (progn
-		(setq buflist (delete default buflist))
-		(setq buflist (cons default buflist))))
-	    buflist)))
+		(setq iswitchb-temp-buflist 
+		      (delete default iswitchb-temp-buflist))
+		(setq iswitchb-temp-buflist 
+		      (cons default iswitchb-temp-buflist))))
+	  iswitchb-temp-buflist)))
 
 (defun iswitchb-to-end (lst)
-  "Move the elements from LST to the end of BUFLIST."
+  "Move the elements from LST to the end of `iswitchb-temp-buflist'."
   (mapcar 
    (lambda (elem)  
-     (setq buflist (delq elem buflist)))
+     (setq iswitchb-temp-buflist (delq elem iswitchb-temp-buflist)))
    lst)
-  (nconc buflist lst))
+  (nconc iswitchb-temp-buflist lst))
 
 (defun iswitchb-get-buffers-in-frames (&optional current)
   "Return the list of buffers that are visible in the current frame.
@@ -1229,7 +1241,7 @@ This is an example function which can be hooked on to
 				      (string-match "Summary" x)
 				      (string-match "output\\*$" x))
 				     x))
-			      buflist))))
+			      iswitchb-temp-buflist))))
     (iswitchb-to-end summaries)))
 
 ;;; HOOKS