Fix ob-lisp.el expectation that slime would be available

[gnu-emacs] / src / insdel.c

diff --git a/src/insdel.c b/src/insdel.c
index 2ccc0b8eaac6c4e6430ce89335f0940057129146..ff380ada1928eb96011b36cd08884d8f832cdd9f 100644 (file)
--- a/src/insdel.c
+++ b/src/insdel.c
@@ -2051,14 +2051,16 @@ prepare_to_modify_buffer (EMACS_INT start, EMACS_INT end,
 
   /* If `select-active-regions' is non-nil, save the region text.  */
   if (!NILP (current_buffer->mark_active)
+      && !inhibit_modification_hooks
+      && XMARKER (current_buffer->mark)->buffer
       && NILP (Vsaved_region_selection)
       && (EQ (Vselect_active_regions, Qonly)
          ? EQ (CAR_SAFE (Vtransient_mark_mode), Qonly)
          : (!NILP (Vselect_active_regions)
             && !NILP (Vtransient_mark_mode))))
     {
-      int b = XINT (Fmarker_position (current_buffer->mark));
-      int e = XINT (make_number (PT));
+      EMACS_INT b = XMARKER (current_buffer->mark)->charpos;
+      EMACS_INT e = PT;
       if (b < e)
        Vsaved_region_selection = make_buffer_string (b, e, 0);
       else if (b > e)