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

[Ralf Angeli]

CVSROOT:        /cvsroot/auctex
Module name:    auctex
Changes by:     Ralf Angeli <angeli>    09/10/10 09:12:04

Index: tex.el
===================================================================
RCS file: /cvsroot/auctex/auctex/tex.el,v
retrieving revision 5.650
retrieving revision 5.651
diff -u -b -r5.650 -r5.651
--- tex.el      4 Oct 2009 12:02:56 -0000       5.650
+++ tex.el      10 Oct 2009 09:12:04 -0000      5.651
@@ -1067,7 +1067,8 @@
          (choice
           (group :tag "Command" (string :tag "Command"))
           (group :tag "Command parts"
-           (repeat :tag "Command parts"
+                 (repeat
+                  :tag "Command parts"
                    (choice
                     (string :tag "Command part")
                     (list :tag "Predicate and command part"
@@ -1077,8 +1078,7 @@
                                        (lambda (spec)
                                          (add-to-list 'list
                                                       `(const ,(car spec))))
-                                       (append
-                                        TeX-view-predicate-list
+                                      (append TeX-view-predicate-list
                                         TeX-view-predicate-list-builtin))
                                       (sort list
                                             (lambda (a b)
@@ -1086,7 +1086,7 @@
                                                (downcase
                                                 (symbol-name (cadr a)))
                                                (downcase
-                                                (symbol-name (cadr b)))))))))
+                                               (symbol-name (cadr b))))))))
                           (string :tag "Command part"))))))))
 
 (defcustom TeX-view-program-selection
@@ -1418,6 +1418,7 @@
   :group 'TeX-view
   :type 'string)
 
+;; FIXME: Make client binaries configurable.
 (defun TeX-source-specials-view-expand-client ()
   "Return gnuclient or emacslient executable with options.
 Return the full path to the executable if possible."
@@ -1575,6 +1576,13 @@
   :type 'string)
   (make-variable-buffer-local 'TeX-command-Show)
 
+(defcustom TeX-command-Index "Index"
+  "The default command to create the index of a TeX file.
+Must be the car of an entry in `TeX-command-list'."
+  :group 'TeX-command-name
+  :type 'string)
+  (make-variable-buffer-local 'TeX-command-Index)
+
 (defcustom TeX-command-Print "Print"
   "The name of the Print entry in `TeX-command-Print'."
   :group 'TeX-command-name
@@ -2754,6 +2762,12 @@
   (kill-all-local-variables)
   (setq TeX-mode-p t)
   (setq TeX-output-extension (if TeX-PDF-mode "pdf" "dvi"))
+  ;; XXX: Perhaps provide a possibility to use abbrevs specific to the
+  ;; AUCTeX modes.  One possibility would be to inherit abbrevs from
+  ;; text-mode-abbrev-table with the :parents property, another would
+  ;; be to provide a variable specifying if text-mode-abbrev-table,
+  ;; TeX-mode-abbrev-table or mode-specific abbrev tables should be
+  ;; used.
   (setq local-abbrev-table text-mode-abbrev-table)
   (setq indent-tabs-mode nil)
 
@@ -4381,10 +4395,13 @@
          (eq (preceding-char) ?\r))
       nil
     (save-excursion
+      (save-match-data
       (let ((pos (point)))
-       (re-search-backward "^\\|\r" nil t)
-       (or (looking-at comment-start-skip)
-           (re-search-forward comment-start-skip pos t))))))
+         (beginning-of-line)
+         (and (or (looking-at comment-start-skip)
+                  (re-search-forward comment-start-skip pos t))
+              (or (not (fboundp 'LaTeX-verbatim-p))
+                  (not (LaTeX-verbatim-p)))))))))
 
 (defun TeX-in-commented-line ()
   "Return non-nil if point is in a line consisting only of a comment.