From e2ba787b86469253337f6360594d5dbbcc154dc8 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Pavel=20Jan=C3=ADk?= Date: Mon, 15 Oct 2001 14:55:28 +0000 Subject: [PATCH] (process-inherit-coding-system-flag, get-buffer-process): Do not confuse make-docfile with doc strings in comment. --- src/ChangeLog | 4 ++++ src/process.c | 8 ++++---- 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 + * 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; -- 2.39.5