Mercurial > emacs

changeset 22380:2645c2c3829f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(iswitchb-require-match, iswitchb-temp-buflist, iswitchb-bufs-in-frame): Variables declared with defvar to quieten the byte compiler.
author Stephen Eglen <stephen@gnu.org>
date Sun, 07 Jun 1998 17:46:15 +0000
parents 1566131616f2
children 50e1804145be
files lisp/iswitchb.el
diffstat 1 files changed, 21 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/iswitchb.el	Sun Jun 07 01:30:29 1998 +0000
+++ b/lisp/iswitchb.el	Sun Jun 07 17:46:15 1998 +0000
@@ -381,6 +381,16 @@
 (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 @@
 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 @@
 				(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 @@
 				      (string-match "Summary" x)
 				      (string-match "output\\*$" x))
 				     x))
-			      buflist))))
+			      iswitchb-temp-buflist))))
     (iswitchb-to-end summaries)))
 
 ;;; HOOKS