Mercurial > emacs

diff lisp/map-ynp.el @ 1235:a9e3ec19b7d7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use (function ...) around lambdas, so it works in v18.
author Roland McGrath <roland@gnu.org>
date Mon, 28 Sep 1992 01:27:56 +0000
parents e18a3f6689a9
children 46528118f75d
line wrap: on
line diff
--- a/lisp/map-ynp.el	Sun Sep 27 17:30:03 1992 +0000
+++ b/lisp/map-ynp.el	Mon Sep 28 01:27:56 1992 +0000
@@ -77,10 +77,11 @@
 ! to %s all remaining %s;
 ESC or `q' to exit;\n"
 				      action object object action objects)
-			      (mapconcat (lambda (elt)
-					   (format "%c to %s"
-						   (nth 0 elt)
-						   (nth 2 elt)))
+			      (mapconcat (function
+					  (lambda (elt)
+					    (format "%c to %s"
+						    (nth 0 elt)
+						    (nth 2 elt))))
 					 action-alist
 					 ";\n")
 			      (if action-alist ";\n")
@@ -88,9 +89,10 @@
 the current %s and exit."
 				      action object))))
 	 (user-keys (if action-alist
-			(concat (mapconcat (lambda (elt)
-					     (key-description
-					      (char-to-string (car elt))))
+			(concat (mapconcat (function
+					    (lambda (elt)
+					      (key-description
+					       (char-to-string (car elt)))))
 					   action-alist ", ")
 				" ")
 		      ""))