(empty_string): New var.

(syms_of_emacs): Initialize it.

1 files changed, 6 insertions, 0 deletions

diff --git a/src/emacs.c b/src/emacs.c
index 8f4cd6568c..f79b094f93 100644
--- a/src/emacs.c
+++ b/src/emacs.c
@@ -108,6 +108,9 @@ Lisp_Object Vinstallation_directory;
 /* Hook run by `kill-emacs' before it does really anything.  */
 Lisp_Object Vkill_emacs_hook;
 
+/* An empty lisp string.  To avoid having to build any other.  */
+Lisp_Object empty_string;
+
 #ifdef SIGUSR1
 /* Hooks for signal USR1 and USR2 handing */
 Lisp_Object Vsignal_USR1_hook;
@@ -2208,6 +2211,9 @@ expect to be able to interact with the user.  To ask for confirmation,\n\
 see `kill-emacs-query-functions' instead.");
   Vkill_emacs_hook = Qnil;
 
+  empty_string = build_string ("");
+  staticpro (&empty_string);
+
 #ifdef SIGUSR1
   DEFVAR_LISP ("signal-USR1-hook", &Vsignal_USR1_hook,
     "Hook to be run whenever emacs receives a USR1 signal");