[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[AUCTeX-commit] Changes to auctex/context.el,v
From: |
David Kastrup |
Subject: |
[AUCTeX-commit] Changes to auctex/context.el,v |
Date: |
Sat, 24 Mar 2007 22:51:28 +0000 |
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.