monnier pushed a commit to branch master in repository elpa. commit 9ba169b2a62aa1d0544b2b3ec24bf1f84f27493a Author: Teemu Likonen <tliko...@iki.fi> Date: Sun Feb 27 18:52:32 2011 +0000
Makron wcheck-with-language-data muuttujille paremmat nimet --- wcheck-mode.el | 14 +++++++------- 1 files changed, 7 insertions(+), 7 deletions(-) diff --git a/wcheck-mode.el b/wcheck-mode.el index 13185b4..0156ce8 100644 --- a/wcheck-mode.el +++ b/wcheck-mode.el @@ -654,20 +654,20 @@ slower. A suitable compromise may be 3 or 4.") `(wcheck-loop-over-reqs-engine :jump-req ,var ,@body)) -(defmacro wcheck-with-language-data (language bindings &rest body) +(defmacro wcheck-with-language-data (var-lang bindings &rest body) (declare (indent 2)) - (let ((lang-var (make-symbol "--wck-language--"))) - `(let* ((,lang-var ,(cadr language)) - ,@(when (car language) - `((,(car language) ,lang-var))) + (let ((language (make-symbol "--wck-language--"))) + `(let* ((,language ,(cadr var-lang)) + ,@(when (car var-lang) + `((,(car var-lang) ,language))) ,@(mapcar (lambda (var) (cond ((symbolp var) (list var `(wcheck-query-language-data - ,lang-var ',var))) + ,language ',var))) ((and var (listp var)) (list (car var) `(wcheck-query-language-data - ,lang-var ',(cadr var)))))) + ,language ',(cadr var)))))) bindings)) ,@body)))