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

[Masayuki Ataka]

CVSROOT:        /cvsroot/auctex
Module name:    auctex
Changes by:     Masayuki Ataka <ataka>  06/06/17 09:53:00

Index: tex.el
===================================================================
RCS file: /cvsroot/auctex/auctex/tex.el,v
retrieving revision 5.575
retrieving revision 5.576
diff -u -b -r5.575 -r5.576
--- tex.el      12 Jun 2006 16:54:21 -0000      5.575
+++ tex.el      17 Jun 2006 09:53:00 -0000      5.576
@@ -1222,7 +1222,7 @@
 (autoload 'dired-mark-pop-up "dired")
 
 (defun TeX-clean (&optional arg)
-  "Delete generated files associated with current master file.
+  "Delete generated files associated with current master and region files.
 If prefix ARG is non-nil, not only remove intermediate but also
 output files."
   (interactive "P")
@@ -1239,10 +1239,14 @@
                              (intern (concat mode-prefix
                                              "-clean-output-suffixes"))))))
         (master (TeX-active-master))
-        (regexp (concat (file-name-nondirectory master)
+        (regexp (concat "\\("
+                        (file-name-nondirectory master) "\\|"
+                        (TeX-region-file nil t)
+                        "\\)"
                         "\\("
                         (mapconcat 'identity suffixes "\\|")
-                        "\\)\\'"))
+                        "\\)\\'"
+                        "\\|" (TeX-region-file t t)))
         (files (when regexp
                  (directory-files (or (file-name-directory master) ".")
                                   nil regexp))))