Mercurial > emacs
changeset 11640:370e1016aba2
(buffer-substring-no-properties): New function.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 01 May 1995 18:26:28 +0000 |
| parents | 462d55b84265 |
| children | 748feea0a51a |
| files | lisp/subr.el |
| diffstat | 1 files changed, 6 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/subr.el Mon May 01 18:25:55 1995 +0000 +++ b/lisp/subr.el Mon May 01 18:26:28 1995 +0000 @@ -842,6 +842,12 @@ (substring string (match-beginning num) (match-end num)) (buffer-substring (match-beginning num) (match-end num))))) +(defun buffer-substring-no-properties (beg end) + "Return the text from BEG to END, without text properties, as a string." + (let ((string (buffer-substring beg end))) + (set-text-properties 0 (length string) nil string) + string)) + (defun shell-quote-argument (argument) "Quote an argument for passing as argument to an inferior shell." ;; Quote everything except POSIX filename characters.