From: Martin Rudalics <rudalics@gmx.at>
Date: Tue, 23 Sep 2008 06:35:31 +0000 (+0000)
Subject: (latex-find-indent): ... and don't change original position when
X-Git-Tag: emacs-pretest-23.0.90~2798
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ea60d1b14f2d723de74e045d02fbdc51986d56d6;p=emacs.git

(latex-find-indent): ... and don't change original position when
it fails.
---

diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el
index eeb562166cb..2c55a68b57b 100644
--- a/lisp/textmodes/tex-mode.el
+++ b/lisp/textmodes/tex-mode.el
@@ -2586,15 +2586,18 @@ There might be text before point."
 	  (member (match-string 2) tex-verbatim-environments)
 	  0)
      ;; Put leading close-paren where the matching open paren would be.
-     (and (or (eq (latex-syntax-after) ?\))
-	      ;; Try to handle escaped close parens.
-	      (and (looking-at "\\\\\\([])}]\\)")
-		   (goto-char (match-beginning 1))))
-	  (ignore-errors
-	    (save-excursion
-	      (latex-skip-close-parens)
-	      (latex-backward-sexp-1)
-	      (latex-find-indent 'virtual))))
+     (and (let (escaped)
+	    (or (eq (latex-syntax-after) ?\))
+		;; Try to handle escaped close parens but keep original
+		;; position if it doesn't work out.
+		(setq escaped (looking-at "\\\\\\([])}]\\)")))
+	    (ignore-errors
+	      (save-excursion
+		(when escaped
+		  (goto-char (match-beginning 1)))
+		(latex-skip-close-parens)
+		(latex-backward-sexp-1)
+		(latex-find-indent 'virtual)))))
      ;; Default (maybe an argument)
      (let ((pos (point))
 	   ;; Outdent \item if necessary.