From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: David Kastrup Newsgroups: gmane.emacs.bugs Subject: bug#19785: 25.0.50; Let apply-partially make use of `lexical-binding' Date: Thu, 05 Feb 2015 18:47:54 +0100 Message-ID: <87bnl8z1v9.fsf@fencepost.gnu.org> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: ger.gmane.org 1423158560 21282 80.91.229.3 (5 Feb 2015 17:49:20 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Thu, 5 Feb 2015 17:49:20 +0000 (UTC) To: 19785@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Thu Feb 05 18:49:16 2015 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1YJQYF-0002fV-ND for geb-bug-gnu-emacs@m.gmane.org; Thu, 05 Feb 2015 18:49:15 +0100 Original-Received: from localhost ([::1]:43567 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YJQYF-0006Gr-0E for geb-bug-gnu-emacs@m.gmane.org; Thu, 05 Feb 2015 12:49:15 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:52118) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YJQY4-00062r-6x for bug-gnu-emacs@gnu.org; Thu, 05 Feb 2015 12:49:09 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1YJQY2-0007Hp-Hu for bug-gnu-emacs@gnu.org; Thu, 05 Feb 2015 12:49:04 -0500 Original-Received: from debbugs.gnu.org ([140.186.70.43]:43725) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YJQY2-0007Hj-EE for bug-gnu-emacs@gnu.org; Thu, 05 Feb 2015 12:49:02 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1YJQY2-0004Tz-6f for bug-gnu-emacs@gnu.org; Thu, 05 Feb 2015 12:49:02 -0500 X-Loop: help-debbugs@gnu.org Resent-From: David Kastrup Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Thu, 05 Feb 2015 17:49:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 19785 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.142315849817180 (code B ref -1); Thu, 05 Feb 2015 17:49:01 +0000 Original-Received: (at submit) by debbugs.gnu.org; 5 Feb 2015 17:48:18 +0000 Original-Received: from localhost ([127.0.0.1]:34965 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1YJQXJ-0004T2-AE for submit@debbugs.gnu.org; Thu, 05 Feb 2015 12:48:17 -0500 Original-Received: from eggs.gnu.org ([208.118.235.92]:50144) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1YJQXG-0004Sn-8K for submit@debbugs.gnu.org; Thu, 05 Feb 2015 12:48:15 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1YJQX5-000778-1w for submit@debbugs.gnu.org; Thu, 05 Feb 2015 12:48:08 -0500 Original-Received: from lists.gnu.org ([2001:4830:134:3::11]:53442) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YJQX4-000773-Vn for submit@debbugs.gnu.org; Thu, 05 Feb 2015 12:48:02 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:51823) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YJQX3-000419-KR for bug-gnu-emacs@gnu.org; Thu, 05 Feb 2015 12:48:02 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1YJQX1-00076L-Sl for bug-gnu-emacs@gnu.org; Thu, 05 Feb 2015 12:48:01 -0500 Original-Received: from fencepost.gnu.org ([2001:4830:134:3::e]:51887) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YJQX1-00076G-Q0 for bug-gnu-emacs@gnu.org; Thu, 05 Feb 2015 12:47:59 -0500 Original-Received: from localhost ([127.0.0.1]:59061 helo=lola) by fencepost.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YJQX1-0002Xd-1L for bug-gnu-emacs@gnu.org; Thu, 05 Feb 2015 12:47:59 -0500 Original-Received: by lola (Postfix, from userid 1000) id 0A38AE6B62; Thu, 5 Feb 2015 18:47:54 +0100 (CET) X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address (bad octet value). X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address (bad octet value). X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x X-Received-From: 140.186.70.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-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:99073 Archived-At: --=-=-= Content-Type: text/plain This patch was discussed in the thread . --=-=-= Content-Type: text/x-diff Content-Disposition: attachment; filename=0001-Let-apply-partially-make-use-of-lexical-binding-in-s.patch >From 3ebbe29b9e7c9112933bdbad1b8f38119524d11e Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Sun, 25 Jan 2015 20:42:46 +0100 Subject: [PATCH] Let apply-partially make use of lexical binding in subr.el * subr.el (apply-partially): Use lexical binding here. See for discussion. --- lisp/ChangeLog | 4 ++++ lisp/subr.el | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 694a35b..9e8602a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2015-01-25 David Kastrup + + * subr.el (apply-partially): Use lexical binding here. + 2015-02-05 Stefan Monnier * delsel.el: Deprecate the `kill' option. Use lexical-binding. diff --git a/lisp/subr.el b/lisp/subr.el index 68cd230..496f711 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -136,8 +136,8 @@ 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." - `(closure (t) (&rest args) - (apply ',fun ,@(mapcar (lambda (arg) `',arg) args) args))) + (lambda (&rest args2) + (apply fun (append args args2)))) (defmacro push (newelt place) "Add NEWELT to the list stored in the generalized variable PLACE. -- 2.1.0 --=-=-= Content-Type: text/plain Configured using: `configure --without-toolkit-scroll-bars' Configured features: XPM JPEG TIFF GIF PNG RSVG IMAGEMAGICK SOUND GPM DBUS GCONF GSETTINGS NOTIFY LIBSELINUX GNUTLS LIBXML2 FREETYPE M17N_FLT LIBOTF XFT ZLIB Important settings: value of $LC_MONETARY: en_US.UTF-8 value of $LC_NUMERIC: en_US.UTF-8 value of $LC_TIME: en_US.UTF-8 value of $LANG: en_US.UTF-8 value of $XMODIFIERS: @im=ibus locale-coding-system: utf-8-unix Major mode: InactiveMinibuffer Minor modes in effect: TeX-PDF-mode: t diff-auto-refine-mode: t desktop-save-mode: t minibuffer-electric-default-mode: t tooltip-mode: t global-eldoc-mode: t electric-indent-mode: t mouse-wheel-mode: t menu-bar-mode: t file-name-shadow-mode: t global-font-lock-mode: t blink-cursor-mode: t auto-composition-mode: t auto-encryption-mode: t auto-compression-mode: t line-number-mode: t Load-path shadows: None found. Features: (shadow emacsbug apropos face-remap thingatpt eieio-opt speedbar sb-image ezimage dframe shr-color color pp rfc2368 gnus-topic ispell shr dom subr-x pcase browse-url nnir flow-fill mm-archive gnus-dup mule-util smiley gnus-cite gnus-async gnus-bcklg gnus-kill qp gnus-ml disp-table pop3 nndir nndraft nnmh gnutls network-stream nsm auth-source cl-macs eieio eieio-core starttls nnml nnfolder nnnil gnus-agent gnus-srvr gnus-score score-mode nnvirtual gnus-msg gnus-art mm-uu mml2015 mm-view mml-smime smime password-cache dig nntp gnus-cache gnus-sum gnus-group gnus-undo gnus-start gnus-cloud nnimap nnmail mail-source tls utf7 netrc nnoo parse-time gnus-spec gnus-int gnus-range gnus-win sendmail mail-extr sort mailcap misearch multi-isearch find-func debug gv help-mode message format-spec rfc822 mml mml-sec mm-decode mm-bodies mm-encode mail-parse rfc2231 rfc2047 rfc2045 ietf-drums mailabbrev gmm-utils mailheader sh-script smie executable make-mode smerge-mode scheme latexenc nxml-uchnm rng-xsd xsd-regexp rng-cmpct rng-nxml rng-valid rng-loc rng-uri rng-parse nxml-parse rng-match rng-dt rng-util rng-pttrn nxml-ns nxml-mode nxml-outln nxml-rap nxml-util nxml-glyph nxml-enc xmltok dired-x dired python json tex-info texinfo autorevert filenotify cc-mode cc-fonts cc-guess cc-menus cc-cmds cc-styles cc-align cc-engine cc-vars cc-defs lilypond-mode compile comint ansi-color ring bug-reference add-log preview prv-emacs reftex-dcr reftex-auc reftex reftex-vars tex-bar tex-buf toolbar-x noutline outline font-latex byte-opt bytecomp byte-compile cl-extra cconv latex edmacro kmacro tex-style tex dbus xml crm jka-compr vc-git diff-mode easy-mmode info easymenu package epg-config advice desktop frameset minibuf-eldef gnus gnus-ems nnheader gnus-util mail-utils mm-util help-fns mail-prsvr wid-edit cl-loaddefs cl-lib cus-start cus-load preview-latex tex-site auto-loads server time-date tooltip eldoc electric uniquify ediff-hook vc-hooks lisp-float-type mwheel x-win x-dnd tool-bar dnd fontset image regexp-opt fringe tabulated-list newcomment elisp-mode lisp-mode prog-mode register page menu-bar rfn-eshadow timer select scroll-bar mouse jit-lock font-lock syntax facemenu font-core frame cham georgian utf-8-lang misc-lang vietnamese tibetan thai tai-viet lao korean japanese hebrew greek romanian slovak czech european ethiopic indian cyrillic chinese case-table epa-hook jka-cmpr-hook help simple abbrev minibuffer nadvice loaddefs button faces cus-face macroexp files text-properties overlay sha1 md5 base64 format env code-pages mule custom widget hashtable-print-readable backquote make-network-process dbusbind gfilenotify dynamic-setting system-font-setting font-render-setting move-toolbar gtk x-toolkit x multi-tty emacs) Memory information: ((conses 8 657308 150234) (symbols 24 52872 282) (miscs 20 1516 1461) (strings 16 118000 23120) (string-bytes 1 3627798) (vectors 8 45942) (vector-slots 4 1754129 45462) (floats 8 493 717) (intervals 28 36535 7536) (buffers 520 285) (heap 1024 55304 18053)) -- David Kastrup --=-=-=--