X-Git-Url: http://g0dil.de/git?a=blobdiff_plain;f=cc-ide%2Fcc-engine-2.el;h=1247e552e6e8796c8778ab02af9c3c8d1a10039c;hb=061f2eb3c002003097749e5636a81e52e763d405;hp=46d7847c945f6d2c2f745fc7e571534588aa23ec;hpb=45f054c3a75f37491c072d6941cbb891776a7afe;p=emacsstuff.git diff --git a/cc-ide/cc-engine-2.el b/cc-ide/cc-engine-2.el index 46d7847..1247e55 100644 --- a/cc-ide/cc-engine-2.el +++ b/cc-ide/cc-engine-2.el @@ -315,13 +315,18 @@ (while (and (not (c-at-toplevel-p)) (c-save-uplist -1))) (c-move-to-start-of-defun) - (let ((point (point)) beg) - (c-beginning-of-statement-1) - (setq beg (point)) - (c-end-of-statement) - (if (> (point) point) - (goto-char beg) - (goto-char point)) + (let ((point (point)) + (flag (c-beginning-of-statement-1)) + beg) + (cond ((eq flag 'label) + (c-forward-label)) + ((eq flag 'previous) + (goto-char point))) + ;(setq beg (point)) + ;(c-end-of-statement) + ;(if (> (point) point) + ;(goto-char beg) + ;(goto-char point)) (c-forward-syntactic-ws))) (defun c-forward-out-of-comment ()