(x_window): Call lw_create_widget with new parameter

[bpt/emacs.git] / src / marker.c

diff --git a/src/marker.c b/src/marker.c
index 86951ed..7e4cd4f 100644 (file)
--- a/src/marker.c
+++ b/src/marker.c
@@ -36,6 +36,7 @@ static int cached_modiff;
 
 static int byte_debug_flag;
 
+void
 clear_charpos_cache (b)
      struct buffer *b;
 {
@@ -131,7 +132,6 @@ buf_charpos_to_bytepos (b, charpos)
      int charpos;
 {
   Lisp_Object tail;
-  int gapend_byte = BUF_GPT_BYTE (b) + BUF_GAP_SIZE (b);
   int best_above, best_above_byte;
   int best_below, best_below_byte;
 
@@ -200,9 +200,10 @@ buf_charpos_to_bytepos (b, charpos)
         It will last until the next GC.  */
       if (record)
        {
-         Lisp_Object marker;
+         Lisp_Object marker, buffer;
          marker = Fmake_marker ();
-         set_marker_both (marker, Qnil, best_below, best_below_byte);
+         XSETBUFFER (buffer, b);
+         set_marker_both (marker, buffer, best_below, best_below_byte);
        }
 
       if (byte_debug_flag)
@@ -230,9 +231,10 @@ buf_charpos_to_bytepos (b, charpos)
         It will last until the next GC.  */
       if (record)
        {
-         Lisp_Object marker;
+         Lisp_Object marker, buffer;
          marker = Fmake_marker ();
-         set_marker_both (marker, Qnil, best_above, best_above_byte);
+         XSETBUFFER (buffer, b);
+         set_marker_both (marker, buffer, best_above, best_above_byte);
        }
 
       if (byte_debug_flag)
@@ -353,7 +355,7 @@ buf_bytepos_to_charpos (b, bytepos)
 
   if (bytepos - best_below_byte < best_above_byte - bytepos)
     {
-      int record = best_above_byte - bytepos > 5000;
+      int record = bytepos - best_below_byte > 5000;
 
       while (best_below_byte < bytepos)
        {
@@ -363,12 +365,15 @@ buf_bytepos_to_charpos (b, bytepos)
 
       /* If this position is quite far from the nearest known position,
         cache the correspondence by creating a marker here.
-        It will last until the next GC.  */
-      if (record)
+        It will last until the next GC.
+        But don't do it if BUF_MARKERS is nil;
+        that is a signal from Fset_buffer_multibyte.  */
+      if (record && ! NILP (BUF_MARKERS (b)))
        {
-         Lisp_Object marker;
+         Lisp_Object marker, buffer;
          marker = Fmake_marker ();
-         set_marker_both (marker, Qnil, best_below, best_below_byte);
+         XSETBUFFER (buffer, b);
+         set_marker_both (marker, buffer, best_below, best_below_byte);
        }
 
       if (byte_debug_flag)
@@ -393,12 +398,15 @@ buf_bytepos_to_charpos (b, bytepos)
 
       /* If this position is quite far from the nearest known position,
         cache the correspondence by creating a marker here.
-        It will last until the next GC.  */
-      if (record)
+        It will last until the next GC.
+        But don't do it if BUF_MARKERS is nil;
+        that is a signal from Fset_buffer_multibyte.  */
+      if (record && ! NILP (BUF_MARKERS (b)))
        {
-         Lisp_Object marker;
+         Lisp_Object marker, buffer;
          marker = Fmake_marker ();
-         set_marker_both (marker, Qnil, best_above, best_above_byte);
+         XSETBUFFER (buffer, b);
+         set_marker_both (marker, buffer, best_above, best_above_byte);
        }
 
       if (byte_debug_flag)
@@ -617,16 +625,7 @@ set_marker_both (marker, buffer, charpos, bytepos)
   register struct Lisp_Marker *m;
 
   CHECK_MARKER (marker, 0);
-  /* If position is nil or a marker that points nowhere,
-     make this marker point nowhere.  */
-  if (NILP (charpos)
-      || (MARKERP (charpos) && !XMARKER (charpos)->buffer))
-    {
-      unchain_marker (marker);
-      return marker;
-    }
 
-  CHECK_NUMBER_COERCE_MARKER (charpos, 1);
   if (NILP (buffer))
     b = current_buffer;
   else
@@ -744,6 +743,8 @@ unchain_marker (marker)
   if (EQ (b->name, Qnil))
     abort ();
 
+  XMARKER (marker)->buffer = 0;
+
   tail = BUF_MARKERS (b);
   prev = Qnil;
   while (XSYMBOL (tail) != XSYMBOL (Qnil))
@@ -769,13 +770,17 @@ unchain_marker (marker)
              XMARKER (prev)->chain = next;
              XSETMARKBIT (XMARKER (prev)->chain, omark);
            }
-         break;
+         /* We have removed the marker from the chain;
+            no need to scan the rest of the chain.  */
+         return;
        }
       else
        prev = tail;
       tail = next;
     }
-  XMARKER (marker)->buffer = 0;
+
+  /* Marker was not in its chain.  */
+  abort ();
 }
 
 /* Return the char position of marker MARKER, as a C integer.  */
@@ -823,16 +828,14 @@ see `marker-insertion-type'.")
 {
   register Lisp_Object new;
 
-  if (INTEGERP (marker) || MARKERP (marker))
-    {
-      new = Fmake_marker ();
-      Fset_marker (new, marker,
-                  (MARKERP (marker) ? Fmarker_buffer (marker) : Qnil));
-      XMARKER (new)->insertion_type = !NILP (type);
-      return new;
-    }
-  else
+  if (! (INTEGERP (marker) || MARKERP (marker)))
     marker = wrong_type_argument (Qinteger_or_marker_p, marker);
+
+  new = Fmake_marker ();
+  Fset_marker (new, marker,
+              (MARKERP (marker) ? Fmarker_buffer (marker) : Qnil));
+  XMARKER (new)->insertion_type = !NILP (type);
+  return new;
 }
 
 DEFUN ("marker-insertion-type", Fmarker_insertion_type,
@@ -878,7 +881,7 @@ DEFUN ("buffer-has-markers-at", Fbuffer_has_markers_at, Sbuffer_has_markers_at,
     charno = Z;
 
   for (tail = BUF_MARKERS (current_buffer);
-       XSYMBOL (tail) != XSYMBOL (Qnil);
+       !NILP (tail);
        tail = XMARKER (tail)->chain)
     if (XMARKER (tail)->charpos == charno)
       return Qt;