(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 351807a330e130ee8005e87a6750bc8ad7cd6dd2..fc2867c311ffaa5759f753be2d5f346f4bc71dbf 100644 (file)
--- 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 9f1a185328743e96a6b015d5bf468003efa2ea27..9c5e213884b2970046d72922a2bde9a2b25a9a65 100644 (file)
--- 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)