# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 738355525 0
# Node ID e414a29f8dc832ec25d9a304e442e9bd0314d575
# Parent  cb714ea94b6170b5b7c18228cdbfa9b26e341190
(Fforward_comment): Always set point.

diff -r cb714ea94b61 -r e414a29f8dc8 src/syntax.c
--- a/src/syntax.c	Tue May 25 18:07:11 1993 +0000
+++ b/src/syntax.c	Tue May 25 18:45:25 1993 +0000
@@ -612,6 +612,7 @@
 		  if (from == stop)
 		    {
 		      immediate_quit = 0;
+		      SET_PT (from);
 		      return Qnil;
 		    }
 		  c = FETCH_CHAR (from);
@@ -636,6 +637,7 @@
 	  else if (code != Swhitespace)
 	    {
 	      immediate_quit = 0;
+	      SET_PT (from);
 	      return Qnil;
 	    }
 	}
@@ -685,6 +687,7 @@
 		      if (from == stop)
 			{
 			  immediate_quit = 0;
+			  SET_PT (from);
 			  return Qnil;
 			}
 		      from--;
@@ -808,6 +811,7 @@
 	  else if (code != Swhitespace || quoted)
 	    {
 	      immediate_quit = 0;
+	      SET_PT (from);
 	      return Qnil;
 	    }
 	}