diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/textmodes/reftex-global.el | 10 |
2 files changed, 9 insertions, 6 deletions
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) |