(internal_self_insert): Don't return 2 for auto-fill

unless the auto_fill_function returns non-nil.

diff --git a/src/cmds.c b/src/cmds.c
index 3bebb798dd55fa538291dea15c8689922309d9cc..5c0f7cd475133342e2ebd74d2030bb03725eb142 100644 (file)
--- a/src/cmds.c
+++ b/src/cmds.c
@@ -331,16 +331,19 @@ internal_self_insert (c1, noautofill)
       && !noautofill
       && !NILP (current_buffer->auto_fill_function))
     {
+      Lisp_Object tem;
+
       insert_and_inherit (&c1, 1);
       if (c1 == '\n')
        /* After inserting a newline, move to previous line and fill */
        /* that.  Must have the newline in place already so filling and */
        /* justification, if any, know where the end is going to be. */
        SET_PT (point - 1);
-      call0 (current_buffer->auto_fill_function);
+      tem = call0 (current_buffer->auto_fill_function);
       if (c1 == '\n')
        SET_PT (point + 1);
-      hairy = 2;
+      if (!NILP (tem))
+       hairy = 2;
     }
   else
     insert_and_inherit (&c1, 1);