# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 715649925 0
# Node ID 4e7d09b779eb78037ee8151e5fabc10fa6ba5a30
# Parent  8f64d312243591dc62275f65f94bab4b1b78d043
*** empty log message ***

diff -r 8f64d3122435 -r 4e7d09b779eb lisp/progmodes/c-mode.el
--- a/lisp/progmodes/c-mode.el	Fri Sep 04 21:51:42 1992 +0000
+++ b/lisp/progmodes/c-mode.el	Fri Sep 04 23:38:45 1992 +0000
@@ -1,5 +1,4 @@
 ;;; c-mode.el --- C code editing commands for Emacs
-
 ;; Copyright (C) 1985, 1986, 1987, 1992 Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
@@ -236,8 +235,9 @@
 
 (defun c-fill-paragraph (&optional arg)
   "Like \\[fill-paragraph] but handle C comments.
-If point is inside a comment, the current paragraph of the comment
-is filled, preserving the comment indentation or line-starting decorations."
+If any of the current line is a comment or within a comment,
+fill the comment or the paragraph of it that point is in,
+preserving the comment indentation or line-starting decorations."
   (interactive "P")
   (let ((first-line
 	 ;; Check for obvious entry to comment.
@@ -248,9 +248,12 @@
     (if (or first-line
 	    ;; t if we enter a comment between start of function and this line.
 	    (eq (calculate-c-indent) t)
-	    ;; See if we enter a comment between beg-of-line and here.
-	    (nth 4 (parse-partial-sexp (save-excursion (beginning-of-line) (point))
-				       (point) 0)))
+	    ;; t if this line contains a comment starter.
+	    (save-excursion (beginning-of-line)
+			    (re-search-forward comment-start-skip
+					       (save-excursion (end-of-line)
+							       (point))
+					       t)))
 	;; Inside a comment: fill one comment paragraph.
 	(let ((fill-prefix
 	       ;; The prefix for each line of this paragraph
@@ -534,7 +537,6 @@
 				    (backward-sexp 1)
 				  (error))
 				(beginning-of-line)
-				(setq tem (point))
 				(looking-at "DEFUN\\b"))
 			      c-argdecl-indent
 			    (if (and (looking-at "\\sw\\|\\s_")