mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-02 02:10:46 -08:00
Code Issues Projects Releases Wiki Activity

(syms_of_emacs): EMACS_CONFIGURATION renamed from CONFIGURATION.

Browse source 
(shut_down_emacs): Don't call intern.
This commit is contained in:
Richard M. Stallman 1994-05-18 05:39:39 +00:00
parent 9fab67cb3e
commit f7511647da
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/emacs.c
View file

@ -850,7 +850,11 @@ shut_down_emacs (sig, no_x, stuff)
#endif
#ifdef HAVE_X_WINDOWS
if (!noninteractive && EQ (Vwindow_system, intern ("x")) && ! no_x)
/* It's not safe to call intern here. Maybe we are crashing. */
if (!noninteractive && SYMBOLP (Vwindow_system)
&& XSYMBOL (Vwindow_system)->name->size == 1
&& XSYMBOL (Vwindow_system)->name->data[0] == 'x'
&& ! no_x)
Fx_close_current_connection ();
#endif /* HAVE_X_WINDOWS */
@ -1008,7 +1012,7 @@ syms_of_emacs ()
DEFVAR_LISP ("system-configuration", &Vsystem_configuration,
"Value is string indicating configuration Emacs was built for.");
Vsystem_configuration = build_string (CONFIGURATION);
Vsystem_configuration = build_string (EMACS_CONFIGURATION);
DEFVAR_BOOL ("noninteractive", &noninteractive1,
"Non-nil means Emacs is running without interactive terminal.");