Mercurial > emacs
diff src/emacs.c @ 83632:cc587bfd19ca
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 781-792)
- Update from CVS
- Merge from gnus--rel--5.10
- Merge from emacs--rel--22
* emacs--rel--22 (patch 33-41)
* gnus--rel--5.10 (patch 226-228)
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--multi-tty--0--patch-21
author | Miles Bader <miles@gnu.org> |
---|---|
date | Mon, 11 Jun 2007 01:00:07 +0000 |
parents | 85ebbe91c285 0aafd69cb508 |
children | 65663fcd2caa |
line wrap: on
line diff
--- a/src/emacs.c Mon Jun 04 05:58:18 2007 +0000 +++ b/src/emacs.c Mon Jun 11 01:00:07 2007 +0000 @@ -134,8 +134,8 @@ /* 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; +/* Empty lisp strings. To avoid having to build any others. */ +Lisp_Object empty_unibyte_string, empty_multibyte_string; /* Search path separator. */ Lisp_Object Vpath_separator; @@ -857,17 +857,23 @@ So ignore --version otherwise. */ && initialized) { - Lisp_Object tem; + Lisp_Object tem, tem2; tem = Fsymbol_value (intern ("emacs-version")); + tem2 = Fsymbol_value (intern ("emacs-copyright")); if (!STRINGP (tem)) { fprintf (stderr, "Invalid value of `emacs-version'\n"); exit (1); } + if (!STRINGP (tem2)) + { + fprintf (stderr, "Invalid value of `emacs-copyright'\n"); + exit (1); + } else { printf ("GNU Emacs %s\n", SDATA (tem)); - printf ("Copyright (C) 2007 Free Software Foundation, Inc.\n"); + printf ("%s\n", SDATA(tem2)); printf ("GNU Emacs comes with ABSOLUTELY NO WARRANTY.\n"); printf ("You may redistribute copies of Emacs\n"); printf ("under the terms of the GNU General Public License.\n"); @@ -2471,9 +2477,6 @@ The hook is not run in batch mode, i.e., if `noninteractive' is non-nil. */); Vkill_emacs_hook = Qnil; - empty_string = build_string (""); - staticpro (&empty_string); - DEFVAR_INT ("emacs-priority", &emacs_priority, doc: /* Priority for Emacs to run at. This value is effective only if set before Emacs is dumped,