diff lisp/map-ynp.el @ 807:4f28bd14272c

*** empty log message ***
author Eric S. Raymond <esr@snark.thyrsus.com>
date Thu, 16 Jul 1992 21:47:34 +0000
parents 505130d1ddf8
children e694e0879463
line wrap: on
line diff
--- a/lisp/map-ynp.el	Thu Jul 16 21:47:30 1992 +0000
+++ b/lisp/map-ynp.el	Thu Jul 16 21:47:34 1992 +0000
@@ -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;