emacs-auctex/ignore-errors.patch

49 lines
2.4 KiB
Diff

---
latex.el | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
--- latex.el
+++ latex.el 2024-03-27 10:36:50.635375638 +0000
@@ -2022,7 +2022,7 @@ TYPE is one of the symbols mac or env."
;; over [>=] and a balanced {}
((looking-at-p "[>=]")
(forward-char 1)
- (with-syntax-table syntax (forward-sexp)))
+ (with-syntax-table syntax (ignore-errors (forward-sexp))))
;; Mandatory arguments:
;; m: Ask for input with "Text" as prompt
((looking-at-p "m")
@@ -2038,7 +2038,7 @@ TYPE is one of the symbols mac or env."
;; R<token1><token2>{default}
((looking-at-p "R")
(re-search-forward "R\\(.\\)\\(.\\)" (+ (point) 3) t)
- (with-syntax-table syntax (forward-sexp))
+ (with-syntax-table syntax (ignore-errors (forward-sexp)))
(push `(TeX-arg-string nil nil nil nil
,(match-string-no-properties 1)
,(match-string-no-properties 2))
@@ -2062,12 +2062,12 @@ TYPE is one of the symbols mac or env."
;; O{default}
((looking-at-p "O")
(forward-char 1)
- (with-syntax-table syntax (forward-sexp))
+ (with-syntax-table syntax (ignore-errors (forward-sexp)))
(push (vector "Text") args))
;; D<token1><token2>{default}
((looking-at-p "D")
(re-search-forward "D\\(.\\)\\(.\\)" (+ (point) 3) t)
- (with-syntax-table syntax (forward-sexp))
+ (with-syntax-table syntax (ignore-errors (forward-sexp)))
(push (vector #'TeX-arg-string nil nil nil nil
(match-string-no-properties 1)
(match-string-no-properties 2))
@@ -2099,7 +2099,7 @@ TYPE is one of the symbols mac or env."
,(match-string-no-properties 1))
args)
(when (looking-at-p TeX-grop)
- (with-syntax-table syntax (forward-sexp))))
+ (with-syntax-table syntax (ignore-errors (forward-sexp)))))
;; Finished:
(t nil))))
(if (eq type 'env)