aboutsummaryrefslogtreecommitdiffstats
path: root/src/editfns.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/editfns.c')
-rw-r--r--src/editfns.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/src/editfns.c b/src/editfns.c
index 0e034cc76fd..1bd6682c3b6 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -1404,16 +1404,16 @@ DEFUN ("system-name", Fsystem_name, Ssystem_name, 0, 0, 0,
1404 1404
1405/* For the benefit of callers who don't want to include lisp.h */ 1405/* For the benefit of callers who don't want to include lisp.h */
1406 1406
1407char * 1407const char *
1408get_system_name (void) 1408get_system_name (void)
1409{ 1409{
1410 if (STRINGP (Vsystem_name)) 1410 if (STRINGP (Vsystem_name))
1411 return (char *) SDATA (Vsystem_name); 1411 return (const char *) SDATA (Vsystem_name);
1412 else 1412 else
1413 return ""; 1413 return "";
1414} 1414}
1415 1415
1416char * 1416const char *
1417get_operating_system_release (void) 1417get_operating_system_release (void)
1418{ 1418{
1419 if (STRINGP (Voperating_system_release)) 1419 if (STRINGP (Voperating_system_release))
@@ -1819,7 +1819,7 @@ usage: (encode-time SECOND MINUTE HOUR DAY MONTH YEAR &optional ZONE) */)
1819 else 1819 else
1820 { 1820 {
1821 char tzbuf[100]; 1821 char tzbuf[100];
1822 char *tzstring; 1822 const char *tzstring;
1823 char **oldenv = environ, **newenv; 1823 char **oldenv = environ, **newenv;
1824 1824
1825 if (EQ (zone, Qt)) 1825 if (EQ (zone, Qt))
@@ -2001,7 +2001,7 @@ If TZ is nil, use implementation-defined default time zone information.
2001If TZ is t, use Universal Time. */) 2001If TZ is t, use Universal Time. */)
2002 (Lisp_Object tz) 2002 (Lisp_Object tz)
2003{ 2003{
2004 char *tzstring; 2004 const char *tzstring;
2005 2005
2006 /* When called for the first time, save the original TZ. */ 2006 /* When called for the first time, save the original TZ. */
2007 if (!environbuf) 2007 if (!environbuf)