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

make-docfile with doc strings in comment.

2 files changed, 8 insertions, 4 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index ffcaf349582..10518e2fd7e 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,9 @@
 2001-10-15  Pavel Jan,Bm(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 d9eab3f097b..f3407838720 100644
--- 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;