Mercurial > emacs
comparison src/editfns.c @ 71975:6d29dff081c5
(region_limit, Fget_internal_run_time): Use xsignal0.
author | Kim F. Storm <storm@cua.dk> |
---|---|
date | Tue, 18 Jul 2006 13:26:30 +0000 |
parents | 47930f9fbcdf |
children | 06ca00cbd2ca 8a8e69664178 |
comparison
equal
deleted
inserted
replaced
71974:9208340e9cad | 71975:6d29dff081c5 |
---|---|
314 Lisp_Object m; | 314 Lisp_Object m; |
315 | 315 |
316 if (!NILP (Vtransient_mark_mode) | 316 if (!NILP (Vtransient_mark_mode) |
317 && NILP (Vmark_even_if_inactive) | 317 && NILP (Vmark_even_if_inactive) |
318 && NILP (current_buffer->mark_active)) | 318 && NILP (current_buffer->mark_active)) |
319 Fsignal (Qmark_inactive, Qnil); | 319 xsignal0 (Qmark_inactive); |
320 | 320 |
321 m = Fmarker_position (current_buffer->mark); | 321 m = Fmarker_position (current_buffer->mark); |
322 if (NILP (m)) | 322 if (NILP (m)) |
323 error ("The mark is not set now, so there is no region"); | 323 error ("The mark is not set now, so there is no region"); |
324 | 324 |
1478 Lisp_Object result[3]; | 1478 Lisp_Object result[3]; |
1479 int secs, usecs; | 1479 int secs, usecs; |
1480 | 1480 |
1481 if (getrusage (RUSAGE_SELF, &usage) < 0) | 1481 if (getrusage (RUSAGE_SELF, &usage) < 0) |
1482 /* This shouldn't happen. What action is appropriate? */ | 1482 /* This shouldn't happen. What action is appropriate? */ |
1483 Fsignal (Qerror, Qnil); | 1483 xsignal0 (Qerror); |
1484 | 1484 |
1485 /* Sum up user time and system time. */ | 1485 /* Sum up user time and system time. */ |
1486 secs = usage.ru_utime.tv_sec + usage.ru_stime.tv_sec; | 1486 secs = usage.ru_utime.tv_sec + usage.ru_stime.tv_sec; |
1487 usecs = usage.ru_utime.tv_usec + usage.ru_stime.tv_usec; | 1487 usecs = usage.ru_utime.tv_usec + usage.ru_stime.tv_usec; |
1488 if (usecs >= 1000000) | 1488 if (usecs >= 1000000) |