1120 |
(setq done 'succeed) |
(setq done 'succeed) |
1121 |
;; Otherwise, if we skipped a semicolon, we lose. |
;; Otherwise, if we skipped a semicolon, we lose. |
1122 |
;; (Exception: we can skip one semicolon before getting |
;; (Exception: we can skip one semicolon before getting |
1123 |
;; to a the last token of the statement, unless that token |
;; to the last token of the statement, unless that token |
1124 |
;; is a close brace.) |
;; is a close brace.) |
1125 |
(if (save-excursion |
(if (save-excursion |
1126 |
(forward-sexp 1) |
(forward-sexp 1) |