summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAlan Mackenzie <acm@muc.de>2016-09-06 12:40:41 +0000
committerAlan Mackenzie <acm@muc.de>2016-09-06 12:40:41 +0000
commitdcfcc595339f8bd503dedf95976b8a3633382f4f (patch)
tree502f0311449be8dc13900d69cd64b184cfe468e1
parent96a80239e7711c5f5d1f9cca5e18b6491b352ca5 (diff)
* lisp/progmodes/cc-engine.el (c-syntactic-re-search-forward): Fix coding bug
-rw-r--r--lisp/progmodes/cc-engine.el11
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/progmodes/cc-engine.el b/lisp/progmodes/cc-engine.el
index d4cb192dbd..259f8a03b3 100644
--- a/lisp/progmodes/cc-engine.el
+++ b/lisp/progmodes/cc-engine.el
@@ -4516,11 +4516,12 @@ comment at the start of cc-engine.el for more info."
((not (memq noerror '(before-literal after-literal)))
(goto-char bound))
(t (setq state (parse-partial-sexp state-pos bound nil nil state))
- (when (or (elt state 3) (elt state 4))
- (if (eq noerror 'before-literal)
- (goto-char (elt state 8))
- (parse-partial-sexp bound (point-max) nil nil
- state 'syntax-table)))))
+ (if (or (elt state 3) (elt state 4))
+ (if (eq noerror 'before-literal)
+ (goto-char (elt state 8))
+ (parse-partial-sexp bound (point-max) nil nil
+ state 'syntax-table))
+ (goto-char bound))))
nil)))