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.
_______________________________________________
auctex-diffs mailing list
auctex-di...@gnu.org
http://lists.gnu.org/mailman/listinfo/auctex-diffs
