2014-04-22 Daniel Colascione <dancol@dancol.org>

	* emacs-lisp/byte-run.el (function-put): Unbreak build: don't
	use defun to define `function-put'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 623d81f47157f8050f194be324ebbdbcdbc2d8b1..3caac76cb8bc6314860fb74213ad06b0d60bb5e9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -35,6 +35,11 @@
        * net/tramp-sh.el (tramp-get-ls-command): Use "-b" argument if
        possible.
 
+2014-04-22  Daniel Colascione  <dancol@dancol.org>
+
+       * emacs-lisp/byte-run.el (function-put): Unbreak build: don't
+       use defun to define `function-put'.
+
 2014-04-22  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * emacs-lisp/lisp-mode.el (lisp--match-hidden-arg): New function.

diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el
index e5f8feb888b9b74eabf172e2455bf05136f678c1..0edcf6197b4e72613b3ae8333deaa36d59edbc53 100644 (file)
--- a/lisp/emacs-lisp/byte-run.el
+++ b/lisp/emacs-lisp/byte-run.el
@@ -30,6 +30,17 @@
 
 ;;; Code:
 
+(defalias 'function-put
+  ;; 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.
+The namespace for PROP is shared with symbols.
+So far, F can only be a symbol, not a lambda expression.")
+(function-put 'defmacro 'doc-string-elt 3)
+(function-put 'defmacro 'lisp-indent-function 2)
+
 ;; `macro-declaration-function' are both obsolete (as marked at the end of this
 ;; file) but used in many .elc files.
 
@@ -140,17 +151,6 @@ and should return the code to use to set this property.
 
 This is used by `declare'.")
 
-(defun function-put (f prop value)
-  "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."
-  ;; 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'.
-  (put f prop value))
-
-(function-put 'defmacro 'doc-string-elt 3)
-(function-put 'defmacro 'lisp-indent-function 2)
 (defalias 'defmacro
   (cons
    'macro
@@ -250,7 +250,8 @@ The return value is undefined.
                                  (cons arglist body))))))
       (if declarations
           (cons 'prog1 (cons def declarations))
-        def))))
+          def))))
+
 \f
 ;; Redefined in byte-optimize.el.
 ;; This is not documented--it's not clear that we should promote it.