# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 710881157 0
# Node ID 58b7fc91b74a28409100a8154d3bcf881e8826e8
# Parent  f8688580137c71f57ac697b5a1cba2251ee49220
*** empty log message ***

diff -r f8688580137c -r 58b7fc91b74a lisp/progmodes/c-mode.el
--- a/lisp/progmodes/c-mode.el	Fri Jul 10 22:19:56 1992 +0000
+++ b/lisp/progmodes/c-mode.el	Sat Jul 11 18:59:17 1992 +0000
@@ -546,16 +546,27 @@
 	       (let ((basic-indent
 		      (save-excursion
 			(re-search-backward "^[^ \^L\t\n#]" nil 'move)
-			(if (and (looking-at "\\sw\\|\\s_")
-				 (looking-at "[^\"\n=]*(")
-				 (progn
-				   (goto-char (1- (match-end 0)))
-				   (forward-sexp 1)
-				   (skip-chars-forward " \t\f")
-				   (and (< (point) indent-point)
-					(not (memq (following-char)
-						   '(?\, ?\;))))))
-			    c-argdecl-indent 0))))
+			(let (comment lim)
+			  (if (and (looking-at "\\sw\\|\\s_")
+				   (looking-at "[^\"\n=]*(")
+				   (progn
+				     (goto-char (1- (match-end 0)))
+				     (setq lim (point))
+				     (forward-sexp 1)
+				     (skip-chars-forward " \t\f")
+				     (and (< (point) indent-point)
+					  (not (memq (following-char)
+						     '(?\, ?\;)))))
+				   ;; Make sure the "function decl" we found
+				   ;; is not inside a comment.
+				   (progn
+				     (beginning-of-line)
+				     (while (and (not comment)
+						 (search-forward "/*" lim t))
+				       (setq comment
+					     (not (search-forward "*/" lim t))))
+				     (not comment)))
+			      c-argdecl-indent 0)))))
 		 basic-indent)))
 
 ;; 		 ;; Now add a little if this is a continuation line.
diff -r f8688580137c -r 58b7fc91b74a src/fns.c
--- a/src/fns.c	Fri Jul 10 22:19:56 1992 +0000
+++ b/src/fns.c	Sat Jul 11 18:59:17 1992 +0000
@@ -1082,6 +1082,8 @@
 
 DEFUN ("y-or-n-p", Fy_or_n_p, Sy_or_n_p, 1, 1, 0,
   "Ask user a \"y or n\" question.  Return t if answer is \"y\".\n\
+Takes one argument, which is the string to display to ask the question.\n\
+It should end in a space; `y-or-n-p' adds `(y or n) ' to it.\n\
 No confirmation of the answer is requested; a single character is enough.\n\
 Also accepts Space to mean yes, or Delete to mean no.")
   (prompt)
@@ -1151,9 +1153,11 @@
 /* Anything that calls this function must protect from GC!  */
 
 DEFUN ("yes-or-no-p", Fyes_or_no_p, Syes_or_no_p, 1, 1, 0,
-  "Ask user a yes or no question.  Return t if answer is yes.\n\
-The user must confirm the answer with a newline,\n\
-and can rub it out if not confirmed.")
+  "Ask user a yes-or-no question.  Return t if answer is yes.\n\
+Takes one argument, which is the string to display to ask the question.\n\
+It should end in a space; `yes-or-no-p' adds `(yes or no) ' to it.\n\
+The user must confirm the answer with RET,\n\
+and can edit it until it as been confirmed.")
   (prompt)
      Lisp_Object prompt;
 {