File ignore-errors.patch of Package emacs-auctex

Overview Repositories Revisions Requests Users Attributes Meta

File ignore-errors.patch of Package emacs-auctex

---
 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)

Places

File ignore-errors.patch of Package emacs-auctex

Places