Simplify stack-allocated Lisp objects, and make them more portable.

[gnu-emacs] / src / editfns.c

diff --git a/src/editfns.c b/src/editfns.c
index 47779914c4582a5e42eb33eb8e22be64d44ea50d..b8a0f6fe637c815ac1af1828db3289fa8466bb4e 100644 (file)
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -4362,8 +4362,7 @@ usage: (format STRING &rest OBJECTS)  */)
 Lisp_Object
 format2 (const char *string1, Lisp_Object arg0, Lisp_Object arg1)
 {
-  return Fformat (3, ((Lisp_Object [])
-    { build_local_string (string1), arg0, arg1 }));
+  return Fformat (3, (Lisp_Object []) { SCOPED_STRING (string1), arg0, arg1 });
 }
 \f
 DEFUN ("char-equal", Fchar_equal, Schar_equal, 2, 2, 0,