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

* editfns.c (Voperating_system_release): Added.

Browse source 
(init_editfns): Assign new variable operating-system-release
	based on call to uname if available.
* config.h: Regenerated.
This commit is contained in:
Steven Tamm 2005-01-19 19:09:42 +00:00
parent 551ffc2715
commit 3bb9abc888
2 changed files with 21 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/config.in
View file

@ -598,6 +598,9 @@ Boston, MA 02111-1307, USA. */
/* Define to 1 if you have the <sys/un.h> header file. */
#undef HAVE_SYS_UN_H
/* Define to 1 if you have the <sys/utsname.h> header file. */
#undef HAVE_SYS_UTSNAME_H
/* Define to 1 if you have the <sys/vlimit.h> header file. */
#undef HAVE_SYS_VLIMIT_H

18
src/editfns.c
View file

@ -34,6 +34,10 @@ Boston, MA 02111-1307, USA. */
#include <unistd.h>
#endif
#ifdef HAVE_SYS_UTSNAME_H
#include <sys/utsname.h>
#endif
/* systime.h includes <sys/time.h> which, on some systems, is required
for <sys/resource.h>; thus systime.h must be included before
<sys/resource.h> */
@ -106,6 +110,7 @@ Lisp_Object Vsystem_name;
Lisp_Object Vuser_real_login_name; /* login name of current user ID */
Lisp_Object Vuser_full_name; /* full name of current user */
Lisp_Object Vuser_login_name; /* user name from LOGNAME or USER */
Lisp_Object Voperating_system_release; /* Operating System Release */
/* Symbol for the text property used to mark fields. */
@ -170,6 +175,16 @@ init_editfns ()
Vuser_full_name = build_string (p);
else if (NILP (Vuser_full_name))
Vuser_full_name = build_string ("unknown");
#ifdef HAVE_SYS_UTSNAME_H
{
struct utsname uts;
uname (&uts);
Voperating_system_release = build_string (uts.release);
}
#else
Voperating_system_release = Qnil;
#endif
}
DEFUN ("char-to-string", Fchar_to_string, Schar_to_string, 1, 1, 0,
@ -4293,6 +4308,9 @@ functions if all the text being accessed has this property. */);
DEFVAR_LISP ("user-real-login-name", &Vuser_real_login_name,
doc: /* The user's name, based upon the real uid only. */);
DEFVAR_LISP ("operating-system-release", &Voperating_system_release,
doc: /* The release of the operating system Emacs is running on. */);
defsubr (&Spropertize);
defsubr (&Schar_equal);
defsubr (&Sgoto_char);