(process-inherit-coding-system-flag, get-buffer-process): Do not confuse

make-docfile with doc strings in comment.

diff --git a/src/ChangeLog b/src/ChangeLog
index ffcaf34..10518e2 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,9 @@
 2001-10-15  Pavel Jan\e,Bm\e(Bk  <Pavel@Janik.cz>
 
+       * process.c (process-inherit-coding-system-flag,
+       get-buffer-process): Do not confuse make-docfile with doc strings
+       in comment.
+
        * editfns.c (Fchar_to_string): Make doc string consistent with arguments.
 
        * abbrev.c, minibuf.c: Put doc strings in comments.

diff --git a/src/process.c b/src/process.c
index d9eab3f..f340783 100644 (file)
--- a/src/process.c
+++ b/src/process.c
@@ -4965,9 +4965,9 @@ wait_reading_process_input (time_limit, microsecs, read_kbd, do_display)
 }
 
 
+/* Don't confuse make-docfile by having two doc strings for this function.
+   make-docfile does not pay attention to #if, for good reason!  */
 DEFUN ("get-buffer-process", Fget_buffer_process, Sget_buffer_process, 1, 1, 0,
-  /* Don't confuse make-docfile by having two doc strings for this function.
-     make-docfile does not pay attention to #if, for good reason!  */
   0)
   (name)
      register Lisp_Object name;
@@ -4975,11 +4975,11 @@ DEFUN ("get-buffer-process", Fget_buffer_process, Sget_buffer_process, 1, 1, 0,
   return Qnil;
 }
 
+  /* Don't confuse make-docfile by having two doc strings for this function.
+     make-docfile does not pay attention to #if, for good reason!  */
 DEFUN ("process-inherit-coding-system-flag",
   Fprocess_inherit_coding_system_flag, Sprocess_inherit_coding_system_flag,
   1, 1, 0,
-  /* Don't confuse make-docfile by having two doc strings for this function.
-     make-docfile does not pay attention to #if, for good reason!  */
   0)
   (process)
      register Lisp_Object process;