# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 717643676 0
# Node ID a9e3ec19b7d7707dd706478a1df018b22d307590
# Parent  9ca8c55f9ae5f34be5e8deb9b8c93a6f5dd5d6c5
Use (function ...) around lambdas, so it works in v18.

diff -r 9ca8c55f9ae5 -r a9e3ec19b7d7 lisp/map-ynp.el
--- 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 ", ")
 				" ")
 		      ""))