mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-06 11:55:48 +00:00
Code Issues Releases Activity

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

Browse Source 
it fails.
This commit is contained in:
Martin Rudalics 2008-09-23 06:35:31 +00:00
parent ee1751a5e8
commit ea60d1b14f
1 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lisp/textmodes/tex-mode.el
View File

@ -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.