Mercurial > emacs

changeset 2084:9561d2584cbb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(c-beginning-of-statement): If next to a comment, use sentence motion.
author Richard M. Stallman <rms@gnu.org>
date Tue, 09 Mar 1993 22:14:36 +0000
parents ff782069e797
children a5e2213a5c4a
files lisp/progmodes/c-mode.el
diffstat 1 files changed, 7 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/c-mode.el	Tue Mar 09 21:18:31 1993 +0000
+++ b/lisp/progmodes/c-mode.el	Tue Mar 09 22:14:36 1993 +0000
@@ -874,13 +874,18 @@
   "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)