# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 819569480 0
# Node ID fdbace398b5ecc810c97693f738281c781e535ba
# Parent  66fa6267358e4dbb85271f3e343e5743018af6a4
(add-to-list): Doc fix.

(buffer-substring-no-properties): Function deleted.

diff -r 66fa6267358e -r fdbace398b5e lisp/subr.el
--- a/lisp/subr.el	Thu Dec 21 18:10:03 1995 +0000
+++ b/lisp/subr.el	Thu Dec 21 18:11:20 1995 +0000
@@ -565,6 +565,7 @@
 
 (defun add-to-list (list-var element)
   "Add to the value of LIST-VAR the element ELEMENT if it isn't there yet.
+The test for presence of ELEMENT is done with `equal'.
 If you want to use `add-to-list' on a variable that is not defined
 until a certain package is loaded, you should put the call to `add-to-list'
 into a hook function that will be run only after loading the package.
@@ -749,12 +750,6 @@
 	  (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."
   (if (eq system-type 'ms-dos)