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

[Ralf Angeli]

CVSROOT:        /cvsroot/auctex
Module name:    auctex
Changes by:     Ralf Angeli <angeli>    07/03/09 20:40:10

Index: tex.el
===================================================================
RCS file: /cvsroot/auctex/auctex/tex.el,v
retrieving revision 5.606
retrieving revision 5.607
diff -u -b -r5.606 -r5.607
--- tex.el      6 Mar 2007 20:30:16 -0000       5.606
+++ tex.el      9 Mar 2007 20:40:09 -0000       5.607
@@ -1306,11 +1306,14 @@
                  (directory-files (or master-dir ".") nil regexp))))
     (if files
        (when (or (not TeX-clean-confirm)
+                 (condition-case nil
                  (dired-mark-pop-up " *Deletions*" 'delete
                                     (if (> (length files) 1) 
                                         files
                                       (cons t files))
-                                    'y-or-n-p "Delete files? "))
+                                        'y-or-n-p "Delete files? ")
+                   (wrong-type-argument ; e.g. with Emacs 21
+                    (y-or-n-p (format "Delete %S? " (car files))))))
          (dolist (file files)
            (delete-file (concat master-dir file))))
       (message "No files to be deleted"))))