diff options
author | Alan Mackenzie <acm@muc.de> | 2016-09-06 12:40:41 +0000 |
---|---|---|
committer | Alan Mackenzie <acm@muc.de> | 2016-09-06 12:40:41 +0000 |
commit | dcfcc595339f8bd503dedf95976b8a3633382f4f (patch) | |
tree | 502f0311449be8dc13900d69cd64b184cfe468e1 | |
parent | 96a80239e7711c5f5d1f9cca5e18b6491b352ca5 (diff) |
* lisp/progmodes/cc-engine.el (c-syntactic-re-search-forward): Fix coding bug
-rw-r--r-- | lisp/progmodes/cc-engine.el | 11 |
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))) |