diff options
| author | Richard M. Stallman | 1994-05-18 05:39:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-05-18 05:39:39 +0000 |
| commit | f7511647da564db45f45e1e00cef3a98779d1fcf (patch) | |
| tree | 789653a7d25f863cad40dd11a286007f9690307f /src | |
| parent | 9fab67cb3ee44e8384eb6d25bcca43cdb81ce7c5 (diff) | |
| download | emacs-f7511647da564db45f45e1e00cef3a98779d1fcf.tar.gz emacs-f7511647da564db45f45e1e00cef3a98779d1fcf.zip | |
(syms_of_emacs): EMACS_CONFIGURATION renamed from CONFIGURATION.
(shut_down_emacs): Don't call intern.
Diffstat (limited to 'src')
| -rw-r--r-- | src/emacs.c | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/emacs.c b/src/emacs.c index 42aff9fb9d9..784cf183a66 100644 --- a/src/emacs.c +++ b/src/emacs.c | |||
| @@ -850,7 +850,11 @@ shut_down_emacs (sig, no_x, stuff) | |||
| 850 | #endif | 850 | #endif |
| 851 | 851 | ||
| 852 | #ifdef HAVE_X_WINDOWS | 852 | #ifdef HAVE_X_WINDOWS |
| 853 | if (!noninteractive && EQ (Vwindow_system, intern ("x")) && ! no_x) | 853 | /* It's not safe to call intern here. Maybe we are crashing. */ |
| 854 | if (!noninteractive && SYMBOLP (Vwindow_system) | ||
| 855 | && XSYMBOL (Vwindow_system)->name->size == 1 | ||
| 856 | && XSYMBOL (Vwindow_system)->name->data[0] == 'x' | ||
| 857 | && ! no_x) | ||
| 854 | Fx_close_current_connection (); | 858 | Fx_close_current_connection (); |
| 855 | #endif /* HAVE_X_WINDOWS */ | 859 | #endif /* HAVE_X_WINDOWS */ |
| 856 | 860 | ||
| @@ -1008,7 +1012,7 @@ syms_of_emacs () | |||
| 1008 | 1012 | ||
| 1009 | DEFVAR_LISP ("system-configuration", &Vsystem_configuration, | 1013 | DEFVAR_LISP ("system-configuration", &Vsystem_configuration, |
| 1010 | "Value is string indicating configuration Emacs was built for."); | 1014 | "Value is string indicating configuration Emacs was built for."); |
| 1011 | Vsystem_configuration = build_string (CONFIGURATION); | 1015 | Vsystem_configuration = build_string (EMACS_CONFIGURATION); |
| 1012 | 1016 | ||
| 1013 | DEFVAR_BOOL ("noninteractive", &noninteractive1, | 1017 | DEFVAR_BOOL ("noninteractive", &noninteractive1, |
| 1014 | "Non-nil means Emacs is running without interactive terminal."); | 1018 | "Non-nil means Emacs is running without interactive terminal."); |