Mercurial > emacs

changeset 29044:203427c54c10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ccl-compile-map-multiple): Don't quote lambda.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sun, 21 May 2000 02:25:59 +0000
parents a5d03117ad26
children 7235e6a14c62
files lisp/international/ccl.el
diffstat 1 files changed, 16 insertions(+), 16 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/ccl.el	Sun May 21 02:14:07 2000 +0000
+++ b/lisp/international/ccl.el	Sun May 21 02:25:59 2000 +0000
@@ -898,22 +898,22 @@
 (defun ccl-compile-map-multiple (cmd)
   (if (/= (length cmd) 4)
       (error "CCL: Invalid number of arguments: %s" cmd))
-  (let ((func '(lambda (arg mp)
-			  (let ((len 0) result add)
-			    (while arg
-			      (if (consp (car arg))
-				  (setq add (funcall func (car arg) t)
-					result (append result add)
-					add (+ (-(car add)) 1))
-				(setq result
-				      (append result
-					      (list (car arg)))
-				      add 1))
-			      (setq arg (cdr arg)
-				    len (+ len add)))
-			    (if mp 
-				(cons (- len) result)
-			      result))))
+  (let ((func (lambda (arg mp)
+		(let ((len 0) result add)
+		  (while arg
+		    (if (consp (car arg))
+			(setq add (funcall func (car arg) t)
+			      result (append result add)
+			      add (+ (-(car add)) 1))
+		      (setq result
+			    (append result
+				    (list (car arg)))
+			    add 1))
+		    (setq arg (cdr arg)
+			  len (+ len add)))
+		  (if mp 
+		      (cons (- len) result)
+		    result))))
 	arg)
     (setq arg (append (list (nth 0 cmd) (nth 1 cmd) (nth 2 cmd))
 		      (funcall func (nth 3 cmd) nil)))