byte-run.el (function-put): Match argument names to docstring (bug#19118).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 12f81b76693855f693e114715c2a2a12bb5e31c9..d4f1dbd21770b4522bcb539c82cf1a9f3f3cb3f0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-11-20  Nicolas Richard  <theonewiththeevillook@yahoo.fr>
+
+       * emacs-lisp/byte-run.el (function-put): Match argument names to
+       docstring.
+
 2014-11-24  Sam Steingold  <sds@gnu.org>
 
        * vc/vc-hooks.el (vc-directory-exclusion-list):

diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el
index 1f8b04ec8f05873c70eb0b4b6055077c2821bafc..8bf63ea572e1a2a2774ecf220e3acadcd34cee8b 100644 (file)
--- a/lisp/emacs-lisp/byte-run.el
+++ b/lisp/emacs-lisp/byte-run.el
@@ -34,10 +34,11 @@
   ;; We don't want people to just use `put' because we can't conveniently
   ;; hook into `put' to remap old properties to new ones.  But for now, there's
   ;; no such remapping, so we just call `put'.
-  #'(lambda (f prop value) (put f prop value))
-  "Set function F's property PROP to VALUE.
+  #'(lambda (function prop value)
+      "Set FUNCTION'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.")
+So far, FUNCTION can only be a symbol, not a lambda expression."
+      (put function prop value)))
 (function-put 'defmacro 'doc-string-elt 3)
 (function-put 'defmacro 'lisp-indent-function 2)