From: Tino Calancha <tino.calancha@gmail.com>
Date: Thu, 2 Mar 2017 23:37:23 +0000 (+0900)
Subject: * lisp/subr.el (apply-partially): Move to 'Basic Lisp functions' section.
X-Git-Tag: emacs-26.0.90~663
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6a9ba271a956127e566192b33fc811e802d2d475;p=emacs.git

* lisp/subr.el (apply-partially): Move to 'Basic Lisp functions' section.
---

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.