CVSROOT: /cvsroot/auctex
Module name: auctex
Changes by: Ralf Angeli <angeli> 06/06/07 20:38:41
Index: latex.el
===================================================================
RCS file: /cvsroot/auctex/auctex/latex.el,v
retrieving revision 5.411
retrieving revision 5.412
diff -u -b -r5.411 -r5.412
--- latex.el 7 Jun 2006 20:27:38 -0000 5.411
+++ latex.el 7 Jun 2006 20:38:41 -0000 5.412
@@ -3417,6 +3417,17 @@
(setq LaTeX-paragraph-commands-regexp
(LaTeX-paragraph-commands-regexp-make))))
+(defun LaTeX-set-paragraph-start ()
+ "Set `paragraph-start'."
+ (setq paragraph-start
+ (concat
+ "[ \t]*%*[ \t]*\\("
+ LaTeX-paragraph-commands-regexp "\\|"
+ (regexp-quote TeX-esc) "\\(" LaTeX-item-regexp "\\)\\|"
+ "\\$\\$\\|" ; Plain TeX display math (Some people actually
+ ; use this with LaTeX. Yuck.)
+ "$\\)")))
+
(defun LaTeX-paragraph-commands-add-locally (commands)
"Make COMMANDS be recognized as paragraph commands.
COMMANDS can be a single string or a list of strings which will
@@ -3429,7 +3440,8 @@
(unless (listp commands) (setq commands (list commands)))
(dolist (elt commands)
(add-to-list 'LaTeX-paragraph-commands-internal elt))
- (setq LaTeX-paragraph-commands-regexp
(LaTeX-paragraph-commands-regexp-make)))
+ (setq LaTeX-paragraph-commands-regexp (LaTeX-paragraph-commands-regexp-make))
+ (LaTeX-set-paragraph-start))
(defun LaTeX-forward-paragraph (&optional count)
"Move forward to end of paragraph.
@@ -4823,14 +4835,7 @@
(setq TeX-auto-full-regexp-list
(append LaTeX-auto-regexp-list plain-TeX-auto-regexp-list))
- (setq paragraph-start
- (concat
- "[ \t]*%*[ \t]*\\("
- LaTeX-paragraph-commands-regexp "\\|"
- (regexp-quote TeX-esc) "\\(" LaTeX-item-regexp "\\)\\|"
- "\\$\\$\\|" ; Plain TeX display math (Some people actually
- ; use this with LaTeX. Yuck.)
- "$\\)"))
+ (LaTeX-set-paragraph-start)
(setq paragraph-separate
(concat
"[ \t]*%*[ \t]*\\("
_______________________________________________
auctex-diffs mailing list
[EMAIL PROTECTED]
http://lists.gnu.org/mailman/listinfo/auctex-diffs
