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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 76db4ee829c29ea51604db42de1f8f439d01f6bb..cd073cdb985f732934e9b983a481c8e76a8b607f 100644 (file)
--- 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 e4350bffff858dafe3464ca5b3c06e67d0961095..48cb33f098b4df59a00f01d8288ad8accc65f27c 100644 (file)
--- 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