unofficial mirror of bug-gnu-emacs@gnu.org 
 help / color / mirror / code / Atom feed
* bug#25911: Subject: 26.0.50; Defun apply-partially is in 'Basic Lisp macros'
@ 2017-03-01  8:35 Tino Calancha
  2017-03-01 16:19 ` Eli Zaretskii
  0 siblings, 1 reply; 9+ messages in thread
From: Tino Calancha @ 2017-03-01  8:35 UTC (permalink / raw)
  To: 25911


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

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
From 3b4254f7a37c4dc8418e9a03e91cd233a4180e10 Mon Sep 17 00:00:00 2001
From: Tino Calancha <tino.calancha@gmail.com>
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))))
+
 \f
 ;;;; 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





^ permalink raw reply related	[flat|nested] 9+ messages in thread
end of thread, other threads:[~2017-03-02 23:40 UTC | newest]

Thread overview: 9+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2017-03-01  8:35 bug#25911: Subject: 26.0.50; Defun apply-partially is in 'Basic Lisp macros' Tino Calancha
2017-03-01 16:19 ` Eli Zaretskii
2017-03-01 23:34   ` Glenn Morris
2017-03-01 23:52     ` Glenn Morris
2017-03-02  0:29       ` Tino Calancha
2017-03-02 15:01         ` Eli Zaretskii
2017-03-02  0:28     ` Tino Calancha
2017-03-02 15:00       ` Eli Zaretskii
2017-03-02 23:40         ` Tino Calancha

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).