Mercurial > hg > xemacs-beta
comparison lisp/prim/subr.el @ 151:59463afc5666 r20-3b2
Import from CVS: tag r20-3b2
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:37:19 +0200 |
| parents | 360340f9fd5f |
| children | 3bb7ccffb0c0 |
comparison
equal
deleted
inserted
replaced
| 150:8ebb1c0f0f6f | 151:59463afc5666 |
|---|---|
| 507 (put error-sym 'error-conditions (cons error-sym conds)))) | 507 (put error-sym 'error-conditions (cons error-sym conds)))) |
| 508 | 508 |
| 509 ;;;; Miscellanea. | 509 ;;;; Miscellanea. |
| 510 | 510 |
| 511 (defun buffer-substring-no-properties (beg end) | 511 (defun buffer-substring-no-properties (beg end) |
| 512 "Return the text from BEG to END, without text properties, as a string." | 512 "Return the text from BEG to END, without extents, as a string." |
| 513 (let ((string (buffer-substring beg end))) | 513 (let ((string (buffer-substring beg end))) |
| 514 (set-text-properties 0 (length string) nil string) | 514 (map-extents (lambda (ext &rest junk) |
| 515 (delete-extent ext)) | |
| 516 string) | |
| 515 string)) | 517 string)) |
| 516 | 518 |
| 517 (defun ignore (&rest ignore) | 519 (defun ignore (&rest ignore) |
| 518 "Do nothing and return nil. | 520 "Do nothing and return nil. |
| 519 This function accepts any number of arguments, but ignores them." | 521 This function accepts any number of arguments, but ignores them." |