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

[Ralf Angeli]

CVSROOT:        /cvsroot/auctex
Module name:    auctex
Changes by:     Ralf Angeli <angeli>    07/02/10 15:59:11

Index: tex.el
===================================================================
RCS file: /cvsroot/auctex/auctex/tex.el,v
retrieving revision 5.600
retrieving revision 5.601
diff -u -b -r5.600 -r5.601
--- tex.el      4 Feb 2007 23:43:02 -0000       5.600
+++ tex.el      10 Feb 2007 15:59:11 -0000      5.601
@@ -915,6 +915,14 @@
                                      'TeX-command-next TeX-command-default))
          (set-buffer-modified-p (buffer-modified-p))))))
 
+(defun TeX-mode-prefix ()
+  "Return the prefix of the current mode as string."
+  (cdr (assoc major-mode '((plain-tex-mode . "plain-TeX")
+                          (latex-mode . "LaTeX")
+                          (doctex-mode . "docTeX")
+                          (texinfo-mode . "Texinfo")
+                          (context-mode . "ConTeXt")))))
+
 ;;; Source Specials
 
 (defgroup TeX-source-specials nil
@@ -1266,11 +1274,7 @@
 If prefix ARG is non-nil, not only remove intermediate but also
 output files."
   (interactive "P")
-  (let* ((mode-prefix (cdr (assoc major-mode '((plain-tex-mode . "plain-TeX")
-                                              (latex-mode . "LaTeX")
-                                              (doctex-mode . "docTeX")
-                                              (texinfo-mode . "Texinfo")
-                                              (context-mode . "ConTeXt")))))
+  (let* ((mode-prefix (TeX-mode-prefix-as-string))
         (suffixes (append (symbol-value
                            (intern (concat mode-prefix
                                            "-clean-intermediate-suffixes")))