From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 9 May 2014 16:51:17 +0000 (-0400)
Subject: * lisp/subr.el (function-put): Add function.
X-Git-Tag: emacs-24.3.91~14
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a3eda656eeeddb7db59fceba1842007778447e46;p=emacs.git

* lisp/subr.el (function-put): Add function.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 76db4ee829c..cd073cdb985 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2014-05-09  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* subr.el (function-put): Add function.
+
 2014-05-09  Stephen Berman  <stephen.berman@gmx.net>
 
 	* calendar/todo-mode.el (todo-insert-item-from-calendar):
diff --git a/lisp/subr.el b/lisp/subr.el
index e4350bffff8..48cb33f098b 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2683,6 +2683,14 @@ computing the hash.  If BINARY is non-nil, return a string in binary
 form."
   (secure-hash 'sha1 object start end binary))
 
+(defalias 'function-put #'put
+  ;; This is only really used in Emacs>24.4, but we add it to 24.4 already, so
+  ;; as to ease the pain when people use future autoload files that contain
+  ;; function-put.
+  "Set function F's property PROP to VALUE.
+The namespace for PROP is shared with symbols.
+So far, F can only be a symbol, not a lambda expression.")
+
 (defun function-get (f prop &optional autoload)
   "Return the value of property PROP of function F.
 If AUTOLOAD is non-nil and F is autoloaded, try to autoload it