mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-07 20:54:32 +00:00
Code Issues Releases Activity

(c-beginning-of-statement): If next to a comment, use sentence motion.

Browse Source
This commit is contained in:
Richard M. Stallman 1993-03-09 22:14:36 +00:00
parent bc6312e108
commit 17f0e88a1b
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -874,13 +874,18 @@ Otherwise return nil and don't move point."
"Go to the beginning of the innermost C statement.
With prefix arg, go back N - 1 statements. If already at the beginning of a
statement then go to the beginning of the preceeding one.
If within a string or comment, move by sentences instead of statements."
If within a string or comment, or next to a comment (only whitespace between),
move by sentences instead of statements."
(interactive "p")
(let ((here (point)) state)
(save-excursion
(beginning-of-defun)
(setq state (parse-partial-sexp (point) here nil nil)))
(if (or (nth 3 state) (nth 4 state))
(if (or (nth 3 state) (nth 4 state)
(looking-at (concat "[ \t]*" comment-start-skip))
(save-excursion (skip-chars-backward " \t")
(goto-char (- (point) 2))
(looking-at "\\*/")))
(forward-sentence (- count))
(while (> count 0)
(c-beginning-of-statement-1)