Index: tex.el
===================================================================
RCS file: /sources/auctex/auctex/tex.el,v
retrieving revision 5.705
diff -u -r5.705 tex.el
--- tex.el	13 Jan 2013 11:05:48 -0000	5.705
+++ tex.el	28 Jan 2013 12:27:54 -0000
@@ -700,7 +700,7 @@
 
   (defun TeX-read-string (prompt &optional initial-input history default-value)
     (read-string prompt initial-input history default-value t))
-  
+
   (defun TeX-mark-active ()
     ;; In FSF 19 mark-active indicates if mark is active.
     mark-active)
@@ -1754,7 +1754,7 @@
     (unless (local-variable-p 'TeX-PDF-mode (current-buffer))
       (TeX-PDF-mode (if arg 1 0))
       (setq TeX-PDF-mode-parsed t))))
-  
+
 (defun TeX-PDF-mode-on ()
   "Use only from parsing routines."
   (TeX-PDF-mode-parsed t))
@@ -1811,7 +1811,8 @@
   :group 'TeX-command-name
   :type 'string)
 
-(defvar TeX-trailer-start nil
+(defvar TeX-trailer-start
+  "^[^%\n]*" (regexp-quote TeX-esc) "\\(endinput\\|bye\\)")
   "Regular expression delimiting start of trailer in a TeX file.")
 
  (make-variable-buffer-local 'TeX-trailer-start)
@@ -1821,6 +1822,11 @@
 
  (make-variable-buffer-local 'TeX-header-end)
 
+(defvar TeX-header-start nil
+  "Regular expression delimiting start of header in a TeX file.")
+
+ (make-variable-buffer-local 'TeX-header-start)
+
 (defvar TeX-command-default nil
   "The default command for `TeX-command' in the current major mode.")
 
@@ -1878,7 +1884,7 @@
 	(when (or (not TeX-clean-confirm)
 		  (condition-case nil
 		      (dired-mark-pop-up " *Deletions*" 'delete
-					 (if (> (length files) 1) 
+					 (if (> (length files) 1)
 					     files
 					   (cons t files))
 					 'y-or-n-p "Delete files? ")
@@ -2990,7 +2996,7 @@
   (setq ispell-parser 'tex)
   (make-local-variable 'ispell-tex-p)
   (setq ispell-tex-p t)
-  
+
   ;; Redefine some standard variables
   (make-local-variable 'paragraph-start)
   (make-local-variable 'paragraph-separate)
@@ -4142,7 +4148,7 @@
     (define-key map "\C-c?"    'TeX-doc)
     (define-key map "\C-c\C-i" 'TeX-goto-info-page)
     (define-key map "\r"       'TeX-newline)
-    
+
     ;; From tex.el
     (define-key map "\""       'TeX-insert-quote)
     (define-key map "$"        'TeX-insert-dollar)
@@ -4156,14 +4162,14 @@
     (define-key map "^"        'TeX-insert-sub-or-superscript)
     (define-key map "_"        'TeX-insert-sub-or-superscript)
     (define-key map "\e\t"     'TeX-complete-symbol) ;*** Emacs 19 way
-    
+
     (define-key map "\C-c'"    'TeX-comment-or-uncomment-paragraph) ;*** Old way
     (define-key map "\C-c:"    'TeX-comment-or-uncomment-region) ;*** Old way
     (define-key map "\C-c\""   'TeX-uncomment) ;*** Old way
-    
+
     (define-key map "\C-c;"    'TeX-comment-or-uncomment-region)
     (define-key map "\C-c%"    'TeX-comment-or-uncomment-paragraph)
-    
+
     (define-key map "\C-c\C-t\C-p"   'TeX-PDF-mode)
     (define-key map "\C-c\C-t\C-i"   'TeX-interactive-mode)
     (define-key map "\C-c\C-t\C-s"   'TeX-source-correlate-mode)
@@ -5572,7 +5578,7 @@
 	(regexp (concat "\\`\\("
 			(mapconcat (lambda (dir)
 				     (regexp-quote
-				      (expand-file-name 
+				      (expand-file-name
 				       (file-name-as-directory dir))))
 				   (append (when (file-name-directory name)
 					     (list (file-name-directory name)))