CVSROOT: /cvsroot/auctex Module name: auctex Changes by: Ralf Angeli <angeli> 09/03/01 16:32:16
Index: latex.el =================================================================== RCS file: /cvsroot/auctex/auctex/latex.el,v retrieving revision 5.452 retrieving revision 5.453 diff -u -b -r5.452 -r5.453 --- latex.el 14 Jan 2009 19:58:28 -0000 5.452 +++ latex.el 1 Mar 2009 16:32:16 -0000 5.453 @@ -1,7 +1,7 @@ ;;; latex.el --- Support for LaTeX documents. -;; Copyright (C) 1991, 1993, 1994, 1995, 1996, 1997, 1999, 2000, -;; 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. +;; Copyright (C) 1991, 1993, 1994, 1995, 1996, 1997, 1999, 2000, 2003, +;; 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. ;; Maintainer: [email protected] ;; Keywords: tex @@ -1920,15 +1920,17 @@ (save-excursion (let ((orig (point)) (verbatim-regexp (regexp-opt (LaTeX-verbatim-macros-with-delims) t))) + ;; Search backwards for the macro start, unless we are facing one (unless (looking-at (concat (regexp-quote TeX-esc) verbatim-regexp)) (catch 'found (while (progn (skip-chars-backward (concat "^\n" (regexp-quote TeX-esc)) (line-beginning-position)) (when (looking-at verbatim-regexp) (throw 'found nil)) - (forward-char -1) + (or (bobp) (forward-char -1)) (/= (point) (line-beginning-position)))))) - (unless (= (point) (line-beginning-position)) + ;; Search forward for the macro end, unless we failed to find a start + (unless (bolp) (let ((beg (1- (point)))) (goto-char (1+ (match-end 0))) (skip-chars-forward (concat "^" (buffer-substring-no-properties @@ -3602,14 +3604,16 @@ of verbatim constructs are not considered." (setq limit (or limit (point-max))) (save-excursion + (let (start) (catch 'found (while (progn (when (and (TeX-re-search-forward-unescaped TeX-comment-start-regexp limit 'move) (not (LaTeX-verbatim-p))) + (setq start (match-beginning 0)) (throw 'found t)) (< (point) limit)))) - (unless (= (point) limit) (match-beginning 0)))) + start))) ;;; Math Minor Mode _______________________________________________ auctex-diffs mailing list [email protected] http://lists.gnu.org/mailman/listinfo/auctex-diffs
