X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/6ebbf1dcaf628240d30337cca99e0541006f0767..0b1716286b7065b3529c8ba60fca0ddb544c3655:/lisp/progmodes/c-mode.el diff --git a/lisp/progmodes/c-mode.el b/lisp/progmodes/c-mode.el index bbb195a2b9..ddda62454f 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." (error (setq sexpend nil) (goto-char nextline))) (skip-chars-forward " \t\n")) - ;; Make sure the sexp we found really starts on the - ;; current line and extends past it. - (goto-char sexpend) - (backward-sexp 1) - (setq sexpbeg (point))) + (if sexpend + (progn + ;; Make sure the sexp we found really starts on the + ;; current line and extends past it. + (goto-char sexpend) + (backward-sexp 1) + (setq sexpbeg (point))))) ;; If that sexp ends within the region, ;; indent it all at once, fast. (if (and sexpend (> sexpend nextline) (<= sexpend endmark)