From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: Tino Calancha Newsgroups: gmane.emacs.bugs Subject: bug#25911: Subject: 26.0.50; Defun apply-partially is in 'Basic Lisp macros' Date: Wed, 01 Mar 2017 17:35:31 +0900 Message-ID: <87bmtl2y3w.fsf@calancha-pc> NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: blaine.gmane.org 1488357373 28568 195.159.176.226 (1 Mar 2017 08:36:13 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Wed, 1 Mar 2017 08:36:13 +0000 (UTC) To: 25911@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Wed Mar 01 09:36:07 2017 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1cizjx-0006gT-PJ for geb-bug-gnu-emacs@m.gmane.org; Wed, 01 Mar 2017 09:36:05 +0100 Original-Received: from localhost ([::1]:39076 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1cizk3-0001Pm-M9 for geb-bug-gnu-emacs@m.gmane.org; Wed, 01 Mar 2017 03:36:11 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:34863) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1cizjy-0001Pg-4F for bug-gnu-emacs@gnu.org; Wed, 01 Mar 2017 03:36:07 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1cizju-0001wI-Rw for bug-gnu-emacs@gnu.org; Wed, 01 Mar 2017 03:36:06 -0500 Original-Received: from debbugs.gnu.org ([208.118.235.43]:34498) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1cizju-0001wD-Je for bug-gnu-emacs@gnu.org; Wed, 01 Mar 2017 03:36:02 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1cizju-0006uy-8R for bug-gnu-emacs@gnu.org; Wed, 01 Mar 2017 03:36:02 -0500 X-Loop: help-debbugs@gnu.org Resent-From: Tino Calancha Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Wed, 01 Mar 2017 08:36:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 25911 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.148835735426574 (code B ref -1); Wed, 01 Mar 2017 08:36:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 1 Mar 2017 08:35:54 +0000 Original-Received: from localhost ([127.0.0.1]:60930 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1cizjm-0006uX-0J for submit@debbugs.gnu.org; Wed, 01 Mar 2017 03:35:54 -0500 Original-Received: from eggs.gnu.org ([208.118.235.92]:43850) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1cizjk-0006uJ-Fd for submit@debbugs.gnu.org; Wed, 01 Mar 2017 03:35:52 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1cizjc-0001tt-1Q for submit@debbugs.gnu.org; Wed, 01 Mar 2017 03:35:45 -0500 Original-Received: from lists.gnu.org ([2001:4830:134:3::11]:34959) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1cizjb-0001tm-UX for submit@debbugs.gnu.org; Wed, 01 Mar 2017 03:35:43 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:34800) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1cizja-0001PS-Jy for bug-gnu-emacs@gnu.org; Wed, 01 Mar 2017 03:35:43 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1cizjX-0001sf-HY for bug-gnu-emacs@gnu.org; Wed, 01 Mar 2017 03:35:42 -0500 Original-Received: from mail-pg0-x241.google.com ([2607:f8b0:400e:c05::241]:33945) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1cizjX-0001s9-Ar for bug-gnu-emacs@gnu.org; Wed, 01 Mar 2017 03:35:39 -0500 Original-Received: by mail-pg0-x241.google.com with SMTP id s67so5113940pgb.1 for ; Wed, 01 Mar 2017 00:35:37 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=from:to:subject:date:message-id:mime-version; bh=74uwJc1Rh72JxrTpBESr1Sle4o1RSBvFwkURUsROYW4=; b=LeiizOhzBlIvTJf1Jo2n9A81/IqbmRAMxq4wgzWxWwf+7JtjcG9dW9nswLJB7C+e7F 4YA2J//8elbqF9yes4WkbgQzW7m2tzowx63S0qoL93u638DJqDoCm+sMuBj0C2XUAZN7 XLOGUeqkiiX4U5pvv3U+iNtnEqlGcl6h9J2pD3gmw80gJp2GjpJTUrmPt11QJkMx5G/G bf7Bou3pAiOmPIglhfKuaT4YPlaAllgf7p25SkfiPMJl/Z9WRZs4QbqmRmPoYULJ1Zvj aUa6lex14l4FttEw9pYxND24wGlE9W+/g9tJux3dC0hRxJav0QNk8FzcVWmZW3pCysTD dXGA== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:from:to:subject:date:message-id:mime-version; bh=74uwJc1Rh72JxrTpBESr1Sle4o1RSBvFwkURUsROYW4=; b=XrTJowkHo+RUz81bOepyBfXcmS8KD35DktJYSqZuv12omTrVR++mo3AwYYlFinbFG2 0XIkLde+GcBxoydc/Y6pDgki1rsF70dzWblKS1tCdnxavzxSG/RxS/y+py5y1gGb4VJ1 tPdhXT0s5FoeyfPwShTo8T2nuRTPjloGAd0IUFJj6ay8R7vbGHuW02pNmT4IjarWIbPr nc/0G1ksDGghUcvI7tH5xSgML5hSQmEyzfRyRvgoqbCKLiahMmHPuWUh+ZXyy9tiC52s oUBSAoVJOhsQxz+yhkWODJg2K14BLx9W3/fAkeMievrNtOaf4JSi66ezbF9acjKvTaPn Yrbw== X-Gm-Message-State: AMke39nFxz/VL6Z4WWO2op/gvpaa59Bdibf+YUgTsJE9mQaC/X31ZmrMCyrbeOcIuphv7w== X-Received: by 10.99.132.198 with SMTP id k189mr7407161pgd.112.1488357336238; Wed, 01 Mar 2017 00:35:36 -0800 (PST) Original-Received: from calancha-pc (104.81.147.124.dy.bbexcite.jp. [124.147.81.104]) by smtp.gmail.com with ESMTPSA id 23sm8761108pfw.94.2017.03.01.00.35.34 for (version=TLS1_2 cipher=ECDHE-RSA-CHACHA20-POLY1305 bits=256/256); Wed, 01 Mar 2017 00:35:35 -0800 (PST) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 208.118.235.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: "bug-gnu-emacs" Xref: news.gmane.org gmane.emacs.bugs:129981 Archived-At: We might move its definition into 'Basic Lisp functions'. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; >From 3b4254f7a37c4dc8418e9a03e91cd233a4180e10 Mon Sep 17 00:00:00 2001 From: Tino Calancha 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