From 5f7fc6cf566d7c04e885f297b902b4e046585fff Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 1 May 1995 18:26:28 +0000 Subject: [PATCH] (buffer-substring-no-properties): New function. --- lisp/subr.el | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/lisp/subr.el b/lisp/subr.el index b30fc965ed..f3ab57a495 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -842,6 +842,12 @@ STRING should be given if the last search was by `string-match' on STRING." (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. -- 2.39.2