comparison lisp/textmodes/tex-mode.el @ 98309:01cf1247cab6

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

98308:9062732fe4b3

     ;; Stick verbatim environments to the left margin.
     (and (looking-at "\\\\\\(begin\\|end\\) *{\\([^\n}]+\\)")
	  (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))))
     ;; Default (maybe an argument)
     (let ((pos (point))
	   ;; Outdent \item if necessary.
	   (indent (if (looking-at tex-indent-item-re) (- tex-indent-item) 0))
	   up-list-pos)

98309:01cf1247cab6

     ;; Stick verbatim environments to the left margin.
     (and (looking-at "\\\\\\(begin\\|end\\) *{\\([^\n}]+\\)")
	  (member (match-string 2) tex-verbatim-environments)
	  0)
     ;; Put leading close-paren where the matching open paren would be.
     (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.
	   (indent (if (looking-at tex-indent-item-re) (- tex-indent-item) 0))
	   up-list-pos)