From dcfcc595339f8bd503dedf95976b8a3633382f4f Mon Sep 17 00:00:00 2001 From: Alan Mackenzie Date: Tue, 6 Sep 2016 12:40:41 +0000 Subject: * lisp/progmodes/cc-engine.el (c-syntactic-re-search-forward): Fix coding bug --- lisp/progmodes/cc-engine.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'lisp') 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))) -- cgit v1.2.3