; Fix last changes in buffer.c

* src/buffer.c (other_buffer_safely): Ensure Lisp Interaction mode
in *scratch*.  (Bug#60096)

diff --git a/src/buffer.c b/src/buffer.c
index 443f90ff8943e5046f143be7decc7db43ef58d67..38c3150f2c53d53536780cd1061d50b3242f5b1b 100644 (file)
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -1757,6 +1757,7 @@ other_buffer_safely (Lisp_Object buffer)
     {
       AUTO_STRING (scratch, "*scratch*");
       buf = Fget_buffer_create (scratch, Qnil);
+      Fset_buffer_major_mode (buf);
     }
   return buf;
 }