bug-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

bug#25911: Subject: 26.0.50; Defun apply-partially is in 'Basic Lisp mac


From: Tino Calancha
Subject: bug#25911: Subject: 26.0.50; Defun apply-partially is in 'Basic Lisp macros'
Date: Wed, 01 Mar 2017 17:35:31 +0900

We might move its definition into 'Basic Lisp functions'.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
>From 3b4254f7a37c4dc8418e9a03e91cd233a4180e10 Mon Sep 17 00:00:00 2001
From: Tino Calancha <address@hidden>
Date: Wed, 1 Mar 2017 17:30:52 +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 4f848d1400..6b0403890c 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -132,15 +132,6 @@ defvar-local
   (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 @@ frame-configuration-p
   (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.11.0



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
In GNU Emacs 26.0.50 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.22.8)
 of 2017-03-01
Repository revision: 03f64ebbc685d803f9dcbb638c37501e0d6f8340





reply via email to

[Prev in Thread] Current Thread [Next in Thread]