From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 25 Jan 2002 02:32:18 +0000 (+0000)
Subject: (substring-no-properties): New function.
X-Git-Tag: ttn-vms-21-2-B4~16993
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e13541763c800173fd1dd5265c37083ff7aa0f6e;p=emacs.git

(substring-no-properties): New function.
(copy-without-properties): Function deleted.
---

diff --git a/lisp/subr.el b/lisp/subr.el
index 4512fbfafb0..ed9ea9af81c 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1362,11 +1362,18 @@ Value is what BODY returns."
 	      (cons 'progn body)
 	      '(set-match-data save-match-data-internal))))
 
-(defun copy-without-properties (string)
-  "Return a copy of STRING with no text properties."
-  (setq string (concat string))
-  (set-text-properties 0 (length string) nil string)
-  string)
+(defun substring-no-properties (string &optional from to)
+  "Return a substring of STRING, with no text properties.
+The substring starts at index FROM and ends before TO.
+If FROM is nil or omitted, it defaults to the beginning of STRING.
+If TO is nil or omitted, it defaults to the end of STRING.
+If FROM or TO is negative, it counts from the end.
+
+Simply (substring-no-properties STRING) copies a string without
+its properties."
+  (let ((str (substring string (or from 0) to)))
+    (set-text-properties 0 (length str) nil str)
+    str))
 
 (defun match-string (num &optional string)
   "Return string of text matched by last search.