martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(c-indent-region): When looking for a sexp that ends

Browse Source 
past this line, make sure it really starts on this line.
This commit is contained in:
Richard M. Stallman
1993-11-11 03:02:18 +00:00
parent 4baf56205b
commit 4fd99ee43a
1 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/progmodes/c-mode.el
View File

@@ -1189,7 +1189,7 @@ If within a string or comment, move by sentences instead of statements."
(while (and (bolp) (not (eolp)))
;; Indent one line as with TAB.
(let ((shift-amt (c-indent-line))
nextline sexpend)
nextline sexpbeg sexpend)
(save-excursion
;; Find beginning of following line.
(save-excursion
@@ -1203,10 +1203,16 @@ If within a string or comment, move by sentences instead of statements."
(setq sexpend (point-marker)))
(error (setq sexpend nil)
(goto-char nextline)))
(skip-chars-forward " \t\n")))
(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 that sexp ends within the region,
;; indent it all at once, fast.
(if (and sexpend (> sexpend nextline) (<= sexpend endmark))
(if (and sexpend (> sexpend nextline) (<= sexpend endmark)
(< sexpbeg nextline))
(progn
(indent-c-exp)
(goto-char sexpend)))