# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1017134276 0
# Node ID 8bfb4deffa5f582fa8a6252be18d3aef665d212a
# Parent  1965fb96359826c24c5fc32dad53bd529135545e
(substring-no-properties): Function deleted (now in C).

diff -r 1965fb963598 -r 8bfb4deffa5f lisp/subr.el
--- a/lisp/subr.el	Tue Mar 26 09:12:23 2002 +0000
+++ b/lisp/subr.el	Tue Mar 26 09:17:56 2002 +0000
@@ -1483,19 +1483,6 @@
 	      (cons 'progn body)
 	      '(set-match-data save-match-data-internal))))
 
-(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.
 NUM specifies which parenthesized expression in the last regexp.