From: Glenn Morris <rgm@gnu.org>
Date: Sun, 27 Apr 2008 18:44:16 +0000 (+0000)
Subject: (reftex-isearch-switch-to-next-file): Remove un-needed local `orig-list'.
X-Git-Tag: emacs-pretest-23.0.90~5996
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b576c5808af88b494ccc9323061d9a44e9f67284;p=emacs.git

(reftex-isearch-switch-to-next-file): Remove un-needed local `orig-list'.
Replace cl `copy-list'.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 351807a330e..fc2867c311f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-04-27  Glenn Morris  <rgm@gnu.org>
+
+	* textmodes/reftex-global.el (reftex-isearch-switch-to-next-file):
+	Remove un-needed local `orig-list'.  Replace cl `copy-list'.
+
 2008-04-27  Carsten Dominik  <dominik@science.uva.nl>
 
 	* org/org.el (org-html-level-start): Always have id's in HTML
diff --git a/lisp/textmodes/reftex-global.el b/lisp/textmodes/reftex-global.el
index 9f1a1853287..9c5e213884b 100644
--- a/lisp/textmodes/reftex-global.el
+++ b/lisp/textmodes/reftex-global.el
@@ -406,21 +406,19 @@ Also checks if buffers visiting the files are in read-only mode."
 ;;; 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)