Commit 5f7fc6cf authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(buffer-substring-no-properties): New function.

parent 2bc9b0c7
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment