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

2 files changed, 12 insertions, 0 deletions

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