(apply-partially): Move from minibuffer.el to subr.el.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 77925f3beb648102c1b5120f2da7fc95616fae56..2ae4b90e7b1ea4e0bf6621cc09e8b8614500ca68 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2008-10-19  Eli Zaretskii  <eliz@gnu.org>
 
+       * subr.el (apply-partially): Moved here from minibuffer.el.  Doc fix.
+
        * simple.el (minibuffer-default-add-shell-commands): Doc fix.
 
 2008-10-19  Martin Rudalics  <rudalics@gmx.at>

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index b64a8d08ae5bc7a490608dc50933c63ce1f31e0f..7626b5d13524ee9be49d82d20698465cffeb08e5 100644 (file)
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -96,14 +96,6 @@ Like CL's `some'."
     (or res
         (if firsterror (signal (car firsterror) (cdr firsterror))))))
 
-(defun apply-partially (fun &rest args)
-  "Do a \"curried\" partial application of FUN to ARGS.
-ARGS is a list of the first N arguments to pass to FUN.
-The result is a new function that takes the remaining arguments,
-and calls FUN."
-  (lexical-let ((fun fun) (args1 args))
-    (lambda (&rest args2) (apply fun (append args1 args2)))))
-
 (defun complete-with-action (action table string pred)
   "Perform completion ACTION.
 STRING is the string to complete.

diff --git a/lisp/subr.el b/lisp/subr.el
index d62b38b00d474c78926bd51dcdca56e619ede390..d078f3dd9ef3aaaac38454e98ef9d561d86f8181 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2254,6 +2254,15 @@ Otherwise, return nil."
        (get-char-property (1- (field-end pos)) 'field)
       raw-field)))
 
+(defun apply-partially (fun &rest args)
+  "Return a function that is a partial application of FUN to ARGS.
+ARGS is a list of the first N arguments to pass to FUN.
+The result is a new function which does the same as FUN, except that
+the first N arguments are fixed at the values with which this function
+was called."
+  (lexical-let ((fun fun) (args1 args))
+    (lambda (&rest args2) (apply fun (append args1 args2)))))
+
 \f
 ;;;; Support for yanking and text properties.