aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/emacs.c12
1 files changed, 7 insertions, 5 deletions
diff --git a/src/emacs.c b/src/emacs.c
index 38e560194d5..5b2f61674c6 100644
--- a/src/emacs.c
+++ b/src/emacs.c
@@ -48,7 +48,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
48#include "lisp.h" 48#include "lisp.h"
49#include "commands.h" 49#include "commands.h"
50 50
51#include "systerm.h" 51#include "systty.h"
52 52
53#ifndef O_RDWR 53#ifndef O_RDWR
54#define O_RDWR 2 54#define O_RDWR 2
@@ -558,7 +558,7 @@ main (argc, argv, envp)
558} 558}
559 559
560DEFUN ("kill-emacs", Fkill_emacs, Skill_emacs, 0, 1, "P", 560DEFUN ("kill-emacs", Fkill_emacs, Skill_emacs, 0, 1, "P",
561 "Exit the Emacs job and kill it. Ask for confirmation, without argument.\n\ 561 "Exit the Emacs job and kill it.\n\
562If ARG is an integer, return ARG as the exit program code.\n\ 562If ARG is an integer, return ARG as the exit program code.\n\
563If ARG is a string, stuff it as keyboard input.\n\n\ 563If ARG is a string, stuff it as keyboard input.\n\n\
564The value of `kill-emacs-hook', if not void,\n\ 564The value of `kill-emacs-hook', if not void,\n\
@@ -768,8 +768,10 @@ syms_of_emacs ()
768 DEFVAR_BOOL ("noninteractive", &noninteractive1, 768 DEFVAR_BOOL ("noninteractive", &noninteractive1,
769 "Non-nil means Emacs is running without interactive terminal."); 769 "Non-nil means Emacs is running without interactive terminal.");
770 770
771 Vkill_emacs_hook = Qnil;
772
773 DEFVAR_LISP ("kill-emacs-hook", &Vkill_emacs_hook, 771 DEFVAR_LISP ("kill-emacs-hook", &Vkill_emacs_hook,
774 "Hook to be run whenever kill-emacs is called."); 772 "Hook to be run whenever kill-emacs is called.\n\
773Since kill-emacs may be invoked when the terminal is disconnected (or\n\
774in other similar situations), functions placed on this hook should not\n\
775not expect to be able to interact with the user.");
776 Vkill_emacs_hook = Qnil;
775} 777}