CVSROOT: /cvsroot/auctex
Module name: auctex
Changes by: Ralf Angeli <angeli> 06/06/24 10:03:51
Index: tex.el
===================================================================
RCS file: /cvsroot/auctex/auctex/tex.el,v
retrieving revision 5.578
retrieving revision 5.579
diff -u -b -r5.578 -r5.579
--- tex.el 18 Jun 2006 13:17:17 -0000 5.578
+++ tex.el 24 Jun 2006 10:03:51 -0000 5.579
@@ -1239,6 +1239,7 @@
(intern (concat mode-prefix
"-clean-output-suffixes"))))))
(master (TeX-active-master))
+ (master-dir (file-name-directory master))
(regexp (concat "\\("
(file-name-nondirectory master) "\\|"
(TeX-region-file nil t)
@@ -1248,8 +1249,7 @@
"\\)\\'"
"\\|" (TeX-region-file t t)))
(files (when regexp
- (directory-files (or (file-name-directory master) ".")
- nil regexp))))
+ (directory-files (or master-dir ".") nil regexp))))
(if files
(when (or (not TeX-clean-confirm)
(dired-mark-pop-up " *Deletions*" 'delete
@@ -1258,7 +1258,7 @@
(cons t files))
'y-or-n-p "Delete files? "))
(dolist (file files)
- (delete-file file)))
+ (delete-file (concat master-dir file))))
(message "No files to be deleted"))))
_______________________________________________
auctex-diffs mailing list
[EMAIL PROTECTED]
http://lists.gnu.org/mailman/listinfo/auctex-diffs
