Mercurial > hg > xemacs-beta
comparison lisp/prim/subr.el @ 171:929b76928fce r20-3b12
Import from CVS: tag r20-3b12
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:47:52 +0200 |
| parents | 5a88923fcbfe |
| children | 6075d714658b |
comparison
equal
deleted
inserted
replaced
| 170:98a42ee61975 | 171:929b76928fce |
|---|---|
| 517 (put error-sym 'error-conditions (cons error-sym conds)))) | 517 (put error-sym 'error-conditions (cons error-sym conds)))) |
| 518 | 518 |
| 519 ;;;; Miscellanea. | 519 ;;;; Miscellanea. |
| 520 | 520 |
| 521 (defun buffer-substring-no-properties (beg end) | 521 (defun buffer-substring-no-properties (beg end) |
| 522 "Return the text from BEG to END, without extents, as a string." | 522 "Return the text from BEG to END, without text properties, as a string." |
| 523 (let ((string (buffer-substring beg end))) | 523 (let ((string (buffer-substring beg end))) |
| 524 (map-extents (lambda (ext &rest junk) | 524 (set-text-properties 0 (length string) nil string) |
| 525 (delete-extent ext)) | |
| 526 string) | |
| 527 string)) | 525 string)) |
| 528 | 526 |
| 529 (defun ignore (&rest ignore) | 527 (defun ignore (&rest ignore) |
| 530 "Do nothing and return nil. | 528 "Do nothing and return nil. |
| 531 This function accepts any number of arguments, but ignores them." | 529 This function accepts any number of arguments, but ignores them." |