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

[Masayuki Ataka]

CVSROOT:        /sources/auctex
Module name:    auctex
Changes by:     Masayuki Ataka <ataka>  07/01/31 21:45:39

Index: latex.el
===================================================================
RCS file: /sources/auctex/auctex/latex.el,v
retrieving revision 5.428
retrieving revision 5.429
diff -u -b -r5.428 -r5.429
--- latex.el    29 Dec 2006 13:40:48 -0000      5.428
+++ latex.el    31 Jan 2007 21:45:39 -0000      5.429
@@ -1,7 +1,7 @@
 ;;; latex.el --- Support for LaTeX documents.
 
 ;; Copyright (C) 1991, 1993, 1994, 1995, 1996, 1997, 1999, 2000,
-;;   2003, 2004, 2005, 2006 Free Software Foundation, Inc.
+;;   2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc.
 
 ;; Maintainer: address@hidden
 ;; Keywords: tex
@@ -1605,7 +1605,7 @@
   "List of the non-local TeX input files.
 
 Initialized once at the first time you prompt for an input file.
-May be reset with `C-u \\[TeX-normal-mode]'.")
+May be reset with `\\[universal-argument] \\[TeX-normal-mode]'.")
 
 (defun TeX-arg-input-file (optionel &optional prompt local)
   "Prompt for a tex or sty file.
@@ -1640,7 +1640,7 @@
   "Association list of BibTeX style files.
 
 Initialized once at the first time you prompt for an input file.
-May be reset with `C-u \\[TeX-normal-mode]'.")
+May be reset with `\\[universal-argument] \\[TeX-normal-mode]'.")
 
 (defun TeX-arg-bibstyle (optional &optional prompt)
   "Prompt for a BibTeX style file."
@@ -1665,7 +1665,7 @@
   "Association list of BibTeX files.
 
 Initialized once at the first time you prompt for an BibTeX file.
-May be reset with `C-u \\[TeX-normal-mode]'.")
+May be reset with `\\[universal-argument] \\[TeX-normal-mode]'.")
 
 (defun TeX-arg-bibliography (optional &optional prompt)
   "Prompt for a BibTeX database file."
@@ -3081,8 +3081,7 @@
          (looking-at (concat "^[ \t]*" TeX-comment-start-regexp
                              "\\(" TeX-comment-start-regexp "\\|[ \t]\\)*")))
        (setq has-comment t
-             comment-fill-prefix (buffer-substring-no-properties
-                                  (match-beginning 0) (match-end 0))))
+             comment-fill-prefix (TeX-match-buffer 0)))
        ;; A line with some code, followed by a comment?
        ((and (setq code-comment-start (save-excursion
                                        (beginning-of-line)
@@ -3213,7 +3212,7 @@
               (make-string (current-column) ?\ ))
             (progn
               (looking-at (concat TeX-comment-start-regexp "+[ \t]*"))
-              (buffer-substring (match-beginning 0) (match-end 0)))))
+              (TeX-match-buffer 0))))
       (fill-region-as-paragraph beg (line-beginning-position 2)
                                justify-flag  nil
                                (save-excursion
@@ -4281,8 +4280,6 @@
     (insert "{\\cal " (char-to-string char) "}"))
   (if dollar (insert "$")))
 
-(provide 'latex)
-
 ;;; Keymap
 
 (defvar LaTeX-mode-map
@@ -5224,15 +5221,13 @@
        (search-forward-regexp
         "\\documentstyle\\[\\([^]]*\\)\\]{\\([^}]*\\)}"
         (point-max) t)
-       (setq optstr (buffer-substring-no-properties (match-beginning 1) 
(match-end 1))
-             docstyle (buffer-substring-no-properties (match-beginning 2)
-             (match-end 2))
+       (setq optstr (TeX-match-buffer 1)
+             docstyle (TeX-match-buffer 2)
              optlist (TeX-split-string "," optstr))
       (if (search-forward-regexp
           "\\documentstyle{\\([^}]*\\)}"
           (point-max) t)
-         (setq docstyle (buffer-substring-no-properties (match-beginning 1)
-         (match-end 1)))
+         (setq docstyle (TeX-match-buffer 1))
        (error "No documentstyle defined")))
     (beginning-of-line 1)
     (setq docline (point))
@@ -5262,4 +5257,6 @@
       (replace-match "\\\\input{" nil nil)))))
   (TeX-normal-mode nil))
 
+(provide 'latex)
+
 ;;; latex.el ends here