# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 731715276 0
# Node ID 9561d2584cbb005589f4334db969ca55407806df
# Parent  ff782069e797e8d32a46259c52daab45b4078483
(c-beginning-of-statement): If next to a comment, use sentence motion.

diff -r ff782069e797 -r 9561d2584cbb lisp/progmodes/c-mode.el
--- 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)