branch: externals/idlwave
commit c9e8a63c08993b401e6f57a560f5c5c21999524c
Author: jdsmith <jdsmith>
Commit: jdsmith <jdsmith>
- Improved test for continuing assignments, to reject assignments in
parentheses (e.g. keyword parameters).
---
idlwave.el | 10 +++++++---
1 file changed, 7 insertions(+), 3 deletions(-)
diff --git a/idlwave.el b/idlwave.el
index c7008e53b5..824ddf4e5b 100644
--- a/idlwave.el
+++ b/idlwave.el
@@ -6,7 +6,7 @@
;; Chris Chase <ch...@att.com>
;; Maintainer: J.D. Smith <jdsm...@as.arizona.edu>
;; Version: VERSIONTAG
-;; Date: $Date: 2004/06/28 04:16:41 $
+;; Date: $Date: 2004/10/13 20:26:26 $
;; Keywords: languages
;; This file is part of GNU Emacs.
@@ -3033,8 +3033,12 @@ groupings, are treated separately."
(current-column)))
;; Continued assignment (with =):
- ((looking-at "[^=\n\r]*\\(=\\)[ \t]*")
- (goto-char (match-end 0))
+ ((catch 'assign ;
+ (while (looking-at "[^=\n\r]*\\(=\\)[ \t]*")
+ (goto-char (match-end 0))
+ (if (eq (car (parse-partial-sexp (match-end 0) end-reg))
+ 0)
+ (throw 'assign t))))
(unless (or
(idlwave-in-quote)
(looking-at "[ \t$]*\\(;.*\\)?$")
