From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 15 Nov 2001 00:34:53 +0000 (+0000)
Subject: (Fpropertize): Allow call with 1 arg.
X-Git-Tag: ttn-vms-21-2-B4~18557
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d2936d21a1168390b2798956db4638b21906afbf;p=emacs.git

(Fpropertize): Allow call with 1 arg.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 9b999fd0b5a..b480f00e0d1 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,7 @@
 2001-11-14  Richard M. Stallman  <rms@gnu.org>
 
+	* editfns.c (Fpropertize): Allow call with 1 arg.
+
 	* dispextern.h (image_background, image_background_transparent):
 	Conditionalize on HAVE_X_WINDOWS.
 
diff --git a/src/editfns.c b/src/editfns.c
index 7f94150d0ee..abecfa94466 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -3082,7 +3082,7 @@ DEFUN ("current-message", Fcurrent_message, Scurrent_message, 0, 0, 0,
 }
 
 
-DEFUN ("propertize", Fpropertize, Spropertize, 3, MANY, 0,
+DEFUN ("propertize", Fpropertize, Spropertize, 1, MANY, 0,
        doc: /* Return a copy of STRING with text properties added.
 First argument is the string to copy.
 Remaining arguments form a sequence of PROPERTY VALUE pairs for text
@@ -3097,7 +3097,7 @@ usage: (propertize STRING &rest PROPERTIES)  */)
   int i;
 
   /* Number of args must be odd.  */
-  if ((nargs & 1) == 0 || nargs < 3)
+  if ((nargs & 1) == 0 || nargs < 1)
     error ("Wrong number of arguments");
 
   properties = string = Qnil;