aboutsummaryrefslogtreecommitdiffstats
path: root/src/editfns.c
diff options
context:
space:
mode:
authorKaroly Lorentey2007-01-29 22:21:19 +0000
committerKaroly Lorentey2007-01-29 22:21:19 +0000
commit93afd0f1d463bec0fc8d3127c1d34ccaa4dbe99b (patch)
tree6e4e3bec20b8c65eb1f78b0ad302fa6c1977d355 /src/editfns.c
parent38db5c8d522cc1faa8190e77dbc932a5560e6aad (diff)
parent5c4a60523827062803ab9a55b4325358225d66bf (diff)
downloademacs-93afd0f1d463bec0fc8d3127c1d34ccaa4dbe99b.tar.gz
emacs-93afd0f1d463bec0fc8d3127c1d34ccaa4dbe99b.zip
Merged from emacs@sv.gnu.org
Patches applied: * emacs@sv.gnu.org/emacs--devo--0--patch-599 Merge from erc--main--0 * emacs@sv.gnu.org/emacs--devo--0--patch-600 Merge from erc--main--0 * emacs@sv.gnu.org/emacs--devo--0--patch-601 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-602 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-603 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-604 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-605 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-606 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-607 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-608 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-609 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-610 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-611 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-612 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-613 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-614 Make byte compiler correctly write circular constants * emacs@sv.gnu.org/emacs--devo--0--patch-615 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-616 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-617 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-618 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-192 Merge from emacs--devo--0 * emacs@sv.gnu.org/gnus--rel--5.10--patch-193 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-194 Merge from emacs--devo--0 * emacs@sv.gnu.org/gnus--rel--5.10--patch-195 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-196 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-594
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.