[AUCTeX-commit] Changes to auctex/context.el,v

[David Kastrup]

CVSROOT:        /sources/auctex
Module name:    auctex
Changes by:     David Kastrup <dak>     07/03/24 22:51:27

Index: context.el
===================================================================
RCS file: /sources/auctex/auctex/context.el,v
retrieving revision 1.61
retrieving revision 1.62
diff -u -b -r1.61 -r1.62
--- context.el  23 Mar 2007 18:27:47 -0000      1.61
+++ context.el  24 Mar 2007 22:51:27 -0000      1.62
@@ -1081,12 +1081,13 @@
      (and virtual (>= (current-indentation) (current-column))
          (current-indentation))
      ;; Put leading close-paren where the matching open brace would be.
+     (condition-case nil
      (and (eq (char-syntax (char-after)) ?\))
-         (ignore-errors
           (save-excursion
             (skip-syntax-forward " )")
             (backward-sexp 1)
-            (ConTeXt-find-indent 'virtual))))
+               (ConTeXt-find-indent 'virtual)))
+       (error nil))
      ;; Default (maybe an argument)
      (let ((pos (point))
           (char (char-after))
@@ -1137,7 +1138,7 @@
         (+ indent (current-column) ConTeXt-indent-basic))
        (t
         (let ((col (current-column)))
-          (if (not (eq (char-syntax char) ?\())
+          (if (not (and char (eq (char-syntax char) ?\()))
               ;; If the first char was not an open-paren, there's
               ;; a risk that this is really not an argument to the
               ;; macro at all.