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: [email protected] ;; 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 _______________________________________________ auctex-commit mailing list [EMAIL PROTECTED] http://lists.gnu.org/mailman/listinfo/auctex-commit
