diff options
| author | Richard M. Stallman | 1993-11-23 08:35:46 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-11-23 08:35:46 +0000 |
| commit | 0b1716286b7065b3529c8ba60fca0ddb544c3655 (patch) | |
| tree | 96d62117bb28788e8fe17baa5d8a1ef5f3d08439 | |
| parent | 6ebbf1dcaf628240d30337cca99e0541006f0767 (diff) | |
| download | emacs-0b1716286b7065b3529c8ba60fca0ddb544c3655.tar.gz emacs-0b1716286b7065b3529c8ba60fca0ddb544c3655.zip | |
(c-indent-region): Don't goto-char sexpend if it's nil.
| -rw-r--r-- | lisp/progmodes/c-mode.el | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/lisp/progmodes/c-mode.el b/lisp/progmodes/c-mode.el index bbb195a2b91..ddda62454f5 100644 --- a/lisp/progmodes/c-mode.el +++ b/lisp/progmodes/c-mode.el | |||
| @@ -1211,11 +1211,13 @@ If within a string or comment, move by sentences instead of statements." | |||
| 1211 | (error (setq sexpend nil) | 1211 | (error (setq sexpend nil) |
| 1212 | (goto-char nextline))) | 1212 | (goto-char nextline))) |
| 1213 | (skip-chars-forward " \t\n")) | 1213 | (skip-chars-forward " \t\n")) |
| 1214 | ;; Make sure the sexp we found really starts on the | 1214 | (if sexpend |
| 1215 | ;; current line and extends past it. | 1215 | (progn |
| 1216 | (goto-char sexpend) | 1216 | ;; Make sure the sexp we found really starts on the |
| 1217 | (backward-sexp 1) | 1217 | ;; current line and extends past it. |
| 1218 | (setq sexpbeg (point))) | 1218 | (goto-char sexpend) |
| 1219 | (backward-sexp 1) | ||
| 1220 | (setq sexpbeg (point))))) | ||
| 1219 | ;; If that sexp ends within the region, | 1221 | ;; If that sexp ends within the region, |
| 1220 | ;; indent it all at once, fast. | 1222 | ;; indent it all at once, fast. |
| 1221 | (if (and sexpend (> sexpend nextline) (<= sexpend endmark) | 1223 | (if (and sexpend (> sexpend nextline) (<= sexpend endmark) |