skip_args = 0;
if (argmatch (argv, argc, "-version", "--version", 3, NULL, &skip_args))
{
+ Lisp_Object rversion, rbranch, rtime;
const char *version, *copyright;
+
if (initialized)
{
Lisp_Object tem, tem2;
copyright = emacs_copyright;
}
printf ("%s %s\n", PACKAGE_NAME, version);
- {
- Lisp_Object rversion =
- Fsymbol_value (intern_c_string ("emacs-repository-version"));
- Lisp_Object rbranch =
- Fsymbol_value (intern_c_string ("emacs-repository-branch"));
- Lisp_Object rtime =
- Fsymbol_value (intern_c_string ("emacs-build-time"));
- if (!NILP (rversion) && !NILP (rbranch) && !NILP (rtime))
- printf ("Development version %s on %s branch; build date %s.\n",
- SSDATA (Fsubstring (rversion, make_fixnum (0),
- make_fixnum (12))),
- SSDATA (rbranch),
- SSDATA (Fformat_time_string (build_string ("%Y-%m-%d"),
- rtime, Qnil)));
- }
+
+ rversion
+ = Fsymbol_value (intern_c_string ("emacs-repository-version"));
+ rbranch
+ = Fsymbol_value (intern_c_string ("emacs-repository-branch"));
+ rtime
+ = Fsymbol_value (intern_c_string ("emacs-build-time"));
+
+ if (!NILP (rversion) && !NILP (rbranch) && !NILP (rtime))
+ printf ("Development version %s on %s branch; build date %s.\n",
+ SSDATA (Fsubstring (rversion, make_fixnum (0),
+ make_fixnum (12))),
+ SSDATA (rbranch),
+ SSDATA (Fformat_time_string (build_string ("%Y-%m-%d"),
+ rtime, Qnil)));
+
printf (("%s\n"
"%s comes with ABSOLUTELY NO WARRANTY.\n"
"You may redistribute copies of %s\n"