Mercurial > emacs

changeset 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 9ca8c55f9ae5
children 5e8c234e5f03
files lisp/map-ynp.el
diffstat 1 files changed, 9 insertions(+), 7 deletions(-) [+]
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 ", ")
 				" ")
 		      ""))