# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1209321765 0
# Node ID 8173b23112aea6b78d762f12e6a3feef8a223c49
# Parent  d86cb59eea9f1e65ac752c08c5a7b78dd4ebfed5
(reftex-isearch-switch-to-next-file): Remove un-needed local `orig-list'.
Replace cl `copy-list'.

diff -r d86cb59eea9f -r 8173b23112ae lisp/textmodes/reftex-global.el
--- a/lisp/textmodes/reftex-global.el	Sun Apr 27 18:33:39 2008 +0000
+++ b/lisp/textmodes/reftex-global.el	Sun Apr 27 18:42:45 2008 +0000
@@ -406,21 +406,19 @@
 ;;; beginning/end of the file list, depending of the search direction.
 (defun reftex-isearch-switch-to-next-file (crt-buf &optional wrapp)
   (reftex-access-scan-info)
-  (let* ((cb (buffer-file-name crt-buf))
-	 (flist (reftex-all-document-files))
-	 (orig-flist flist))
+  (let ((cb (buffer-file-name crt-buf))
+	(flist (reftex-all-document-files)))
     (when flist
       (if wrapp
 	  (unless isearch-forward
 	      (setq flist (last flist)))
 	(unless isearch-forward
-	  (setq flist (nreverse (copy-list flist)))
-	  (setq orig-flist flist))
+	  (setq flist (reverse flist)))
 	(while (not (string= (car flist) cb))
 	  (setq flist (cdr flist)))
 	(setq flist (cdr flist)))
       (when flist
-	(find-file  (car flist))))))
+	(find-file (car flist))))))
 
 ;;;###autoload
 (defun reftex-isearch-minor-mode (&optional arg)