(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 ()