[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 19ee787: subr.el (apply-partially): Use lexical bin
From: |
Artur Malabarba |
Subject: |
[Emacs-diffs] master 19ee787: subr.el (apply-partially): Use lexical binding. |
Date: |
Sun, 08 Feb 2015 20:01:41 +0000 |
branch: master
commit 19ee7875db8b154a3ba49a98da2d3c24b03fff1e
Author: David Kastrup <address@hidden>
Commit: Artur Malabarba <address@hidden>
subr.el (apply-partially): Use lexical binding.
Fixes: debbugs:19785
See
<URL:http://lists.gnu.org/archive/html/emacs-devel/2015-01/msg00784.html>
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 64424b7..d95c0e6 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2015-02-08 David Kastrup <address@hidden>
+
+ * subr.el (apply-partially): Use lexical binding here.
+
2015-02-08 Artur Malabarba <address@hidden>
* newcomment.el (comment-line): New command.
diff --git a/lisp/subr.el b/lisp/subr.el
index 0dfb8ed..deadca6 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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 19ee787: subr.el (apply-partially): Use lexical binding.,
Artur Malabarba <=