[AUCTeX-diffs] Changes to auctex/tex.el,v

[Ralf Angeli]

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"))))