summaryrefslogtreecommitdiff
path: root/lisp/map-ynp.el
diff options
context:
space:
mode:
authorEric S. Raymond <esr@snark.thyrsus.com>1992-07-16 21:47:34 +0000
committerEric S. Raymond <esr@snark.thyrsus.com>1992-07-16 21:47:34 +0000
commitb9c99972f575a5d8eb89e3ca1e801ca98e6f8346 (patch)
tree168346524f895502b2cfd3a0fab1e93a0abf5530 /lisp/map-ynp.el
parent462e258216ecb359cb8a34306bc414a7b35fe4ea (diff)
downloademacs-b9c99972f575a5d8eb89e3ca1e801ca98e6f8346.tar.gz
*** empty log message ***
Diffstat (limited to 'lisp/map-ynp.el')
-rw-r--r--lisp/map-ynp.el12
1 files changed, 9 insertions, 3 deletions
diff --git a/lisp/map-ynp.el b/lisp/map-ynp.el
index 5f4571f4ab8..16b34246790 100644
--- a/lisp/map-ynp.el
+++ b/lisp/map-ynp.el
@@ -1,11 +1,13 @@
;;; map-ynp.el --- General-purpose boolean question-asker.
+;; Author: Roland McGrath <roland@gnu.ai.mit.edu>
+;; Last-Modified: 14 Mar 1992
+
;;; Copyright (C) 1991, 1992 Free Software Foundation, Inc.
-;;; Written by Roland McGrath.
;;;
;;; This program is free software; you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 1, or (at your option)
+;;; the Free Software Foundation; either version 2, or (at your option)
;;; any later version.
;;;
;;; This program is distributed in the hope that it will be useful,
@@ -17,7 +19,9 @@
;;; program's author (send electronic mail to roland@ai.mit.edu) or from
;;; the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA
;;; 02139, USA.
-;;;
+
+;;; Commentary:
+
;;; map-y-or-n-p is a general-purpose question-asking function.
;;; It asks a series of y/n questions (a la y-or-n-p), and decides to
;;; applies an action to each element of a list based on the answer.
@@ -26,6 +30,8 @@
;;; questions; ESC or q to answer n to all remaining questions; . to answer
;;; y once and then n for the remainder; and you can get help with C-h.
+;;; Code:
+
(defun map-y-or-n-p-help (object objects action)
(format "Type SPC or `y' to %s the current %s;
DEL or `n' to skip the current %s;