Introduce fast path for the widely used marker operation.

* alloc.c (build_marker): New function.
* lisp.h (build_marker): New prototype.
* buffer.c (clone_per_buffer_values, Fmake_indirect_buffer): Use it.
* composite.c (autocmp_chars): Likewise.
* editfns.c (buildmark): Remove.
(Fpoint_marker, Fpoint_min_marker, Fpoint_max_marker)
(save_restriction_save): Use build_marker.
* marker.c (buf_charpos_to_bytepos, buf_bytepos_to_charpos): Likewise.
* window.c (save_window_save): Likewise.

1 files changed, 3 insertions, 6 deletions

diff --git a/src/window.c b/src/window.c
index 0f88cbaece9..721b4d98477 100644
--- a/src/window.c
+++ b/src/window.c
@@ -5911,12 +5911,9 @@ save_window_save (Lisp_Object window, struct Lisp_Vector *vector, int i)
              is the selected window, then get the value of point from
              the buffer; pointm is garbage in the selected window.  */
           if (EQ (window, selected_window))
-            {
-              p->pointm = Fmake_marker ();
-              set_marker_both (p->pointm, w->buffer,
-                               BUF_PT (XBUFFER (w->buffer)),
-                               BUF_PT_BYTE (XBUFFER (w->buffer)));
-            }
+            p->pointm = build_marker (XBUFFER (w->buffer),
+                                      BUF_PT (XBUFFER (w->buffer)),
+                                      BUF_PT_BYTE (XBUFFER (w->buffer)));
           else
             p->pointm = Fcopy_marker (w->pointm, Qnil);
           XMARKER (p->pointm)->insertion_type