Mercurial > emacs
comparison src/editfns.c @ 26629:05dcbc266797
(Fdelete_field): Make it noninteractive. Return nil.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 26 Nov 1999 23:08:05 +0000 |
| parents | b7438760079b |
| children | ed4ab9d24450 |
comparison
equal
deleted
inserted
replaced
| 26628:10c31fda7fc2 | 26629:05dcbc266797 |
|---|---|
| 427 *end = NILP (next) ? ZV : XFASTINT (next); | 427 *end = NILP (next) ? ZV : XFASTINT (next); |
| 428 } | 428 } |
| 429 } | 429 } |
| 430 } | 430 } |
| 431 | 431 |
| 432 DEFUN ("delete-field", Fdelete_field, Sdelete_field, 0, 1, "d", | 432 DEFUN ("delete-field", Fdelete_field, Sdelete_field, 0, 1, 0, |
| 433 "Delete the field surrounding POS.\n\ | 433 "Delete the field surrounding POS.\n\ |
| 434 A field is a region of text with the same `field' property.\n\ | 434 A field is a region of text with the same `field' property.\n\ |
| 435 If POS is nil, the value of point is used for POS.") | 435 If POS is nil, the value of point is used for POS.") |
| 436 (pos) | 436 (pos) |
| 437 Lisp_Object pos; | 437 Lisp_Object pos; |
| 438 { | 438 { |
| 439 int beg, end; | 439 int beg, end; |
| 440 find_field (pos, Qnil, &beg, &end); | 440 find_field (pos, Qnil, &beg, &end); |
| 441 if (beg != end) | 441 if (beg != end) |
| 442 del_range (beg, end); | 442 del_range (beg, end); |
| 443 return Qnil; | |
| 443 } | 444 } |
| 444 | 445 |
| 445 DEFUN ("field-string", Ffield_string, Sfield_string, 0, 1, 0, | 446 DEFUN ("field-string", Ffield_string, Sfield_string, 0, 1, 0, |
| 446 "Return the contents of the field surrounding POS as a string.\n\ | 447 "Return the contents of the field surrounding POS as a string.\n\ |
| 447 A field is a region of text with the same `field' property.\n\ | 448 A field is a region of text with the same `field' property.\n\ |