From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 26 Jun 2003 23:15:08 +0000 (+0000)
Subject: (unchain_marker): Lisp_Object arg => Lisp_Marker.
X-Git-Tag: ttn-vms-21-2-B4~9565
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c0ac2f4ab0fe5df8bdd9260d2b7d87d447412a7d;p=emacs.git

(unchain_marker): Lisp_Object arg => Lisp_Marker.
(struct Lisp_Marker): Lisp_Object `chain' => Lisp_Marker `next'.
---

diff --git a/src/lisp.h b/src/lisp.h
index 1bc5949cea6..16611484c8b 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -1115,7 +1115,7 @@ struct Lisp_Marker
 
   /* For markers that point somewhere,
      this is used to chain of all the markers in a given buffer.  */
-  Lisp_Object chain;
+  struct Lisp_Marker *next;
   /* This is the char position where the marker points.  */
   int charpos;
   /* This is the byte position.  */
@@ -2741,7 +2741,7 @@ extern void clear_charpos_cache P_ ((struct buffer *));
 extern int charpos_to_bytepos P_ ((int));
 extern int buf_charpos_to_bytepos P_ ((struct buffer *, int));
 extern int buf_bytepos_to_charpos P_ ((struct buffer *, int));
-extern void unchain_marker P_ ((Lisp_Object));
+extern void unchain_marker P_ ((struct Lisp_Marker *marker));
 extern Lisp_Object set_marker_restricted P_ ((Lisp_Object, Lisp_Object, Lisp_Object));
 extern Lisp_Object set_marker_both P_ ((Lisp_Object, Lisp_Object, int, int));
 extern Lisp_Object set_marker_restricted_both P_ ((Lisp_Object, Lisp_Object,