diff options
Diffstat (limited to 'src/editfns.c')
| -rw-r--r-- | src/editfns.c | 23 |
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, | |||
| 1314 | Value is an integer or float, depending on the value. */) | 1314 | Value 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 | ||
| 1320 | DEFUN ("user-real-uid", Fuser_real_uid, Suser_real_uid, 0, 0, 0, | 1323 | DEFUN ("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, | |||
| 1322 | Value is an integer or float, depending on the value. */) | 1325 | Value 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 | ||
| 1328 | DEFUN ("user-full-name", Fuser_full_name, Suser_full_name, 0, 1, 0, | 1334 | DEFUN ("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 | |||
| 1450 | least significant 16 bits. The third integer gives the microsecond | 1456 | least significant 16 bits. The third integer gives the microsecond |
| 1451 | count. | 1457 | count. |
| 1452 | 1458 | ||
| 1453 | On systems that can't determine the run time, get-internal-run-time | 1459 | On systems that can't determine the run time, `get-internal-run-time' |
| 1454 | does the same thing as current-time. The microsecond count is zero on | 1460 | does the same thing as `current-time'. The microsecond count is zero |
| 1455 | systems that do not provide resolution finer than a second. */) | 1461 | on 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". */) | |||
| 1715 | DEFUN ("decode-time", Fdecode_time, Sdecode_time, 0, 1, 0, | 1721 | DEFUN ("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). |
| 1717 | The optional SPECIFIED-TIME should be a list of (HIGH LOW . IGNORED), | 1723 | The optional SPECIFIED-TIME should be a list of (HIGH LOW . IGNORED), |
| 1718 | as from `current-time' and `file-attributes', or `nil' to use the | 1724 | as from `current-time' and `file-attributes', or nil to use the |
| 1719 | current time. The obsolete form (HIGH . LOW) is also still accepted. | 1725 | current time. The obsolete form (HIGH . LOW) is also still accepted. |
| 1720 | The list has the following nine members: SEC is an integer between 0 | 1726 | The list has the following nine members: SEC is an integer between 0 |
| 1721 | and 60; SEC is 60 for a leap second, which only some operating systems | 1727 | and 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 | ||
| 2281 | DEFUN ("insert-char", Finsert_char, Sinsert_char, 2, 3, 0, | 2287 | DEFUN ("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. |
| 2283 | Both arguments are required. | ||
| 2284 | Point, and before-insertion markers, are relocated as in the function `insert'. | 2289 | Point, and before-insertion markers, are relocated as in the function `insert'. |
| 2285 | The optional third arg INHERIT, if non-nil, says to inherit text properties | 2290 | The optional third arg INHERIT, if non-nil, says to inherit text properties |
| 2286 | from adjoining text, if those properties are sticky. */) | 2291 | from adjoining text, if those properties are sticky. */) |
| @@ -3169,7 +3174,7 @@ save_restriction_restore (data) | |||
| 3169 | DEFUN ("save-restriction", Fsave_restriction, Ssave_restriction, 0, UNEVALLED, 0, | 3174 | DEFUN ("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. |
| 3171 | The buffer's restrictions make parts of the beginning and end invisible. | 3176 | The 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'.) |
| 3173 | This special form, `save-restriction', saves the current buffer's restrictions | 3178 | This special form, `save-restriction', saves the current buffer's restrictions |
| 3174 | when it is entered, and restores them when it is exited. | 3179 | when it is entered, and restores them when it is exited. |
| 3175 | So any `narrow-to-region' within BODY lasts only until the end of the form. | 3180 | So any `narrow-to-region' within BODY lasts only until the end of the form. |