aboutsummaryrefslogtreecommitdiffstats
path: root/src/editfns.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/editfns.c')
-rw-r--r--src/editfns.c23
1 files changed, 14 insertions, 9 deletions
diff --git a/src/editfns.c b/src/editfns.c
index ab29a07b693..6ef2efe313e 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -1314,7 +1314,10 @@ DEFUN ("user-uid", Fuser_uid, Suser_uid, 0, 0, 0,
1314Value is an integer or float, depending on the value. */) 1314Value is an integer or float, depending on the value. */)
1315 () 1315 ()
1316{ 1316{
1317 return make_fixnum_or_float (geteuid ()); 1317 /* Assignment to EMACS_INT stops GCC whining about limited range of
1318 data type. */
1319 EMACS_INT euid = geteuid ();
1320 return make_fixnum_or_float (euid);
1318} 1321}
1319 1322
1320DEFUN ("user-real-uid", Fuser_real_uid, Suser_real_uid, 0, 0, 0, 1323DEFUN ("user-real-uid", Fuser_real_uid, Suser_real_uid, 0, 0, 0,
@@ -1322,7 +1325,10 @@ DEFUN ("user-real-uid", Fuser_real_uid, Suser_real_uid, 0, 0, 0,
1322Value is an integer or float, depending on the value. */) 1325Value is an integer or float, depending on the value. */)
1323 () 1326 ()
1324{ 1327{
1325 return make_fixnum_or_float (getuid ()); 1328 /* Assignment to EMACS_INT stops GCC whining about limited range of
1329 data type. */
1330 EMACS_INT uid = getuid ();
1331 return make_fixnum_or_float (uid);
1326} 1332}
1327 1333
1328DEFUN ("user-full-name", Fuser_full_name, Suser_full_name, 0, 1, 0, 1334DEFUN ("user-full-name", Fuser_full_name, Suser_full_name, 0, 1, 0,
@@ -1450,9 +1456,9 @@ most significant 16 bits of the seconds, while the second has the
1450least significant 16 bits. The third integer gives the microsecond 1456least significant 16 bits. The third integer gives the microsecond
1451count. 1457count.
1452 1458
1453On systems that can't determine the run time, get-internal-run-time 1459On systems that can't determine the run time, `get-internal-run-time'
1454does the same thing as current-time. The microsecond count is zero on 1460does the same thing as `current-time'. The microsecond count is zero
1455systems that do not provide resolution finer than a second. */) 1461on systems that do not provide resolution finer than a second. */)
1456 () 1462 ()
1457{ 1463{
1458#ifdef HAVE_GETRUSAGE 1464#ifdef HAVE_GETRUSAGE
@@ -1715,7 +1721,7 @@ For example, to produce full ISO 8601 format, use "%Y-%m-%dT%T%z". */)
1715DEFUN ("decode-time", Fdecode_time, Sdecode_time, 0, 1, 0, 1721DEFUN ("decode-time", Fdecode_time, Sdecode_time, 0, 1, 0,
1716 doc: /* Decode a time value as (SEC MINUTE HOUR DAY MONTH YEAR DOW DST ZONE). 1722 doc: /* Decode a time value as (SEC MINUTE HOUR DAY MONTH YEAR DOW DST ZONE).
1717The optional SPECIFIED-TIME should be a list of (HIGH LOW . IGNORED), 1723The optional SPECIFIED-TIME should be a list of (HIGH LOW . IGNORED),
1718as from `current-time' and `file-attributes', or `nil' to use the 1724as from `current-time' and `file-attributes', or nil to use the
1719current time. The obsolete form (HIGH . LOW) is also still accepted. 1725current time. The obsolete form (HIGH . LOW) is also still accepted.
1720The list has the following nine members: SEC is an integer between 0 1726The list has the following nine members: SEC is an integer between 0
1721and 60; SEC is 60 for a leap second, which only some operating systems 1727and 60; SEC is 60 for a leap second, which only some operating systems
@@ -2279,8 +2285,7 @@ usage: (insert-before-markers-and-inherit &rest ARGS) */)
2279} 2285}
2280 2286
2281DEFUN ("insert-char", Finsert_char, Sinsert_char, 2, 3, 0, 2287DEFUN ("insert-char", Finsert_char, Sinsert_char, 2, 3, 0,
2282 doc: /* Insert COUNT (second arg) copies of CHARACTER (first arg). 2288 doc: /* Insert COUNT copies of CHARACTER.
2283Both arguments are required.
2284Point, and before-insertion markers, are relocated as in the function `insert'. 2289Point, and before-insertion markers, are relocated as in the function `insert'.
2285The optional third arg INHERIT, if non-nil, says to inherit text properties 2290The optional third arg INHERIT, if non-nil, says to inherit text properties
2286from adjoining text, if those properties are sticky. */) 2291from adjoining text, if those properties are sticky. */)
@@ -3169,7 +3174,7 @@ save_restriction_restore (data)
3169DEFUN ("save-restriction", Fsave_restriction, Ssave_restriction, 0, UNEVALLED, 0, 3174DEFUN ("save-restriction", Fsave_restriction, Ssave_restriction, 0, UNEVALLED, 0,
3170 doc: /* Execute BODY, saving and restoring current buffer's restrictions. 3175 doc: /* Execute BODY, saving and restoring current buffer's restrictions.
3171The buffer's restrictions make parts of the beginning and end invisible. 3176The buffer's restrictions make parts of the beginning and end invisible.
3172(They are set up with `narrow-to-region' and eliminated with `widen'.) 3177\(They are set up with `narrow-to-region' and eliminated with `widen'.)
3173This special form, `save-restriction', saves the current buffer's restrictions 3178This special form, `save-restriction', saves the current buffer's restrictions
3174when it is entered, and restores them when it is exited. 3179when it is entered, and restores them when it is exited.
3175So any `narrow-to-region' within BODY lasts only until the end of the form. 3180So any `narrow-to-region' within BODY lasts only until the end of the form.