From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 12 Oct 2001 02:10:29 +0000 (+0000)
Subject: (empty_string): New var.
X-Git-Tag: ttn-vms-21-2-B4~19551
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f9a6326d6e0535e6be1f0c98329c0b76992ca29f;p=emacs.git

(empty_string): New var.
(syms_of_emacs): Initialize it.
---

diff --git a/src/emacs.c b/src/emacs.c
index 8f4cd6568c8..f79b094f93a 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");