mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(indent-c-exp): Preserve point when handling comments.

Browse source
This commit is contained in:
Richard M. Stallman 1994-08-06 21:22:51 +00:00
parent cb88b56ea9
commit 62057cefc1
1 changed files with 12 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

23
lisp/progmodes/c-mode.el
View file

@ -1249,17 +1249,18 @@ If within a string or comment, move by sentences instead of statements."
(indent-to this-indent)))
;; Indent any comment following the text.
(or (looking-at comment-start-skip)
(let ((beg (point)))
(and (re-search-forward
comment-start-skip
(save-excursion (end-of-line) (point)) t)
;; Make sure the comment starter we found
;; is not actually in a string or quoted.
(let ((new-state
(parse-partial-sexp beg (point)
nil nil state)))
(and (not (nth 3 new-state)) (not (nth 5 new-state))))
(progn (indent-for-comment) (beginning-of-line)))))))))))
(save-excursion
(let ((beg (point)))
(and (re-search-forward
comment-start-skip
(save-excursion (end-of-line) (point)) t)
;; Make sure the comment starter we found
;; is not actually in a string or quoted.
(let ((new-state
(parse-partial-sexp beg (point)
nil nil state)))
(and (not (nth 3 new-state)) (not (nth 5 new-state))))
(indent-for-comment)))))))))))
;; Look at all comment-start strings in the current line after point.
;; Return t if one of them starts a real comment.