diff options
| author | Roland McGrath <roland@gnu.org> | 1992-09-28 01:27:56 +0000 |
|---|---|---|
| committer | Roland McGrath <roland@gnu.org> | 1992-09-28 01:27:56 +0000 |
| commit | 02e0e0d880c1b55b56184de1c255a706b923b25e (patch) | |
| tree | 36a4ee0ace63dff6794f6528ca16f96fa5ef767a /lisp/map-ynp.el | |
| parent | 7a4ca96525c3dcc89fc9ec303253daa641ed29ed (diff) | |
| download | emacs-02e0e0d880c1b55b56184de1c255a706b923b25e.tar.gz | |
Use (function ...) around lambdas, so it works in v18.
Diffstat (limited to 'lisp/map-ynp.el')
| -rw-r--r-- | lisp/map-ynp.el | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/lisp/map-ynp.el b/lisp/map-ynp.el index 4d3f6f917e7..777c1e39614 100644 --- a/lisp/map-ynp.el +++ b/lisp/map-ynp.el @@ -77,10 +77,11 @@ DEL or `n' to skip the current %s; ! 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 @@ ESC or `q' to exit;\n" 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 ", ") " ") "")) |