Mercurial > emacs

changeset 69101:6fd277476931

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Carsten Dominik <dominik@science.uva.nl>
date Wed, 22 Feb 2006 08:56:27 +0000
parents 7885f9153d10
children 996de826e5cc
files lisp/ChangeLog lisp/textmodes/reftex.el
diffstat 2 files changed, 3 insertions(+), 44 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Wed Feb 22 08:00:12 2006 +0000
+++ b/lisp/ChangeLog	Wed Feb 22 08:56:27 2006 +0000
@@ -1,5 +1,8 @@
 2006-02-22  Carsten Dominik  <dominik@science.uva.nl>
 
+	* textmodes/reftex.el (reftex-locate-file): Removed duplicate
+	function.
+
 	* textmodes/reftex-vars.el: (reftex-try-all-extensions): New
 	option.
 
--- a/lisp/textmodes/reftex.el	Wed Feb 22 08:00:12 2006 +0000
+++ b/lisp/textmodes/reftex.el	Wed Feb 22 08:56:27 2006 +0000
@@ -1437,50 +1437,6 @@
                          "\\)\\'"))
          (files (if (string-match ext-re file)
                     (cons file nil)
-                  (cons (concat file def-ext) file)))
-         path old-path file1)
-    (cond
-     ((file-name-absolute-p file)
-      (setq file1 
-            (or 
-             (and (car files) (file-regular-p (car files)) (car files))
-             (and (cdr files) (file-regular-p (cdr files)) (cdr files)))))
-     ((and reftex-use-external-file-finders
-           (assoc type reftex-external-file-finders))
-      (setq file1 (reftex-find-file-externally file type master-dir)))
-     (t
-      (while (and (null file1) rec-values)
-        (setq path (reftex-access-search-path
-                    type (pop rec-values) master-dir file))
-        (if (or (null old-path)
-                (not (eq old-path path)))
-            (setq old-path path
-                  path (cons master-dir path)
-                  file1 (or (and (car files)
-                                 (reftex-find-file-on-path 
-                                  (car files) path master-dir))
-                            (and (cdr files)
-                                 (reftex-find-file-on-path 
-                                  (cdr files) path master-dir))))))))
-    (cond (file1 file1)
-          (die (error "No such file: %s" file) nil)
-          (t (message "No such file: %s (ignored)" file) nil))))
-
-
-;; FIXME:  this still needs testing and thinking.
-(defun reftex-locate-file (file type master-dir &optional die)
-  "Find FILE of type TYPE in MASTER-DIR or on the path associcted with TYPE.
-If the file does not have any of the valid extensions for TYPE,
-try first the default extension and only then the naked file name.
-When DIE is non-nil, throw an error if file not found."
-  (let* ((rec-values (if reftex-search-unrecursed-path-first '(nil t) '(t)))
-         (extensions (cdr (assoc type reftex-file-extensions)))
-         (def-ext (car extensions))
-         (ext-re (concat "\\(" 
-                         (mapconcat 'regexp-quote extensions "\\|")
-                         "\\)\\'"))
-         (files (if (string-match ext-re file)
-                    (cons file nil)
 		  (if reftex-try-all-extensions
 		      (append (mapcar (lambda (x) (concat file x))
 				      extensions)