From: Luc Teirlinck <teirllm@auburn.edu>
Date: Fri, 30 Dec 2005 23:15:03 +0000 (+0000)
Subject: (set_text_properties): Reword description of return value.
X-Git-Tag: emacs-pretest-22.0.90~4956
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=537562fa4424691e6361df4fc700113faee2b533;p=emacs.git

(set_text_properties): Reword description of return value.
Return Qnil if caller wants to remove all text properties from a
string and the string already has no intervals.
---

diff --git a/src/textprop.c b/src/textprop.c
index fa9b0e498c5..029f2f41031 100644
--- a/src/textprop.c
+++ b/src/textprop.c
@@ -1316,8 +1316,8 @@ the designated part of OBJECT.  */)
    properties PROPERTIES.  OBJECT is the buffer or string containing
    the text.  OBJECT nil means use the current buffer.
    SIGNAL_AFTER_CHANGE_P nil means don't signal after changes.  Value
-   is non-nil if properties were replaced; it is nil if there weren't
-   any properties to replace.  */
+   is nil if the function _detected_ that it did not replace any
+   properties, non-nil otherwise.  */
 
 Lisp_Object
 set_text_properties (start, end, properties, object, signal_after_change_p)
@@ -1341,7 +1341,7 @@ set_text_properties (start, end, properties, object, signal_after_change_p)
       && XFASTINT (end) == SCHARS (object))
     {
       if (! STRING_INTERVALS (object))
-	return Qt;
+	return Qnil;
 
       STRING_SET_INTERVALS (object, NULL_INTERVAL);
       return Qt;