From 6a9ba271a956127e566192b33fc811e802d2d475 Mon Sep 17 00:00:00 2001 From: Tino Calancha Date: Fri, 3 Mar 2017 08:37:23 +0900 Subject: [PATCH] * lisp/subr.el (apply-partially): Move to 'Basic Lisp functions' section. --- lisp/subr.el | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/lisp/subr.el b/lisp/subr.el index 4f848d1400c..6b0403890cf 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -132,15 +132,6 @@ buffer-local wherever it is set." (list 'progn (list 'defvar var val docstring) (list 'make-variable-buffer-local (list 'quote var)))) -(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." - (lambda (&rest args2) - (apply fun (append args args2)))) - (defmacro push (newelt place) "Add NEWELT to the list stored in the generalized variable PLACE. This is morally equivalent to (setf PLACE (cons NEWELT PLACE)), @@ -344,6 +335,15 @@ configuration." (and (consp object) (eq (car object) 'frame-configuration))) +(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." + (lambda (&rest args2) + (apply fun (append args args2)))) + ;;;; List functions. -- 2.39.5