diff options
author | Eli Zaretskii <[email protected]> | 2008-10-20 23:14:36 +0000 |
---|---|---|
committer | Eli Zaretskii <[email protected]> | 2008-10-20 23:14:36 +0000 |
commit | 30ee26a9592a7784acccbc8a86e3060d5f1eca78 (patch) | |
tree | ad8c934e63164533ae3345407e86ab585d3f6cf7 /lisp/subr.el | |
parent | fd6f900c21e90d5dd6661e7b29f5ffe2c049400c (diff) |
(apply-partially): Move from subr.el to simple.el.
Diffstat (limited to 'lisp/subr.el')
-rw-r--r-- | lisp/subr.el | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index a0077794b5..40311c4e1f 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -3556,20 +3556,5 @@ is greater than \"1pre\" which is greater than \"1beta\" which is greater than \"1alpha\"." (version-list-= (version-to-list v1) (version-to-list v2))) - -;; This is for lexical-let in apply-partially. It is here because cl -;; needs various macros defined above. -(eval-when-compile (require 'cl)) - -(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))))) - - ;; arch-tag: f7e0e6e5-70aa-4897-ae72-7a3511ec40bc ;;; subr.el ends here |