diff options
author | Eric S. Raymond <esr@snark.thyrsus.com> | 1992-07-16 21:47:34 +0000 |
---|---|---|
committer | Eric S. Raymond <esr@snark.thyrsus.com> | 1992-07-16 21:47:34 +0000 |
commit | b9c99972f575a5d8eb89e3ca1e801ca98e6f8346 (patch) | |
tree | 168346524f895502b2cfd3a0fab1e93a0abf5530 /lisp/map-ynp.el | |
parent | 462e258216ecb359cb8a34306bc414a7b35fe4ea (diff) | |
download | emacs-b9c99972f575a5d8eb89e3ca1e801ca98e6f8346.tar.gz |
*** empty log message ***
Diffstat (limited to 'lisp/map-ynp.el')
-rw-r--r-- | lisp/map-ynp.el | 12 |
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; |