Mercurial > emacs
changeset 4845:6b7954afe2bf
(map-y-or-n-p): Take new optional arg to not set cursor-in-echo-area.
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Tue, 12 Oct 1993 00:53:28 +0000 |
| parents | 25d94807689e |
| children | df5046c4e18b |
| files | lisp/map-ynp.el |
| diffstat | 1 files changed, 7 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/map-ynp.el Mon Oct 11 03:52:24 1993 +0000 +++ b/lisp/map-ynp.el Tue Oct 12 00:53:28 1993 +0000 @@ -1,6 +1,6 @@ ;;; map-ynp.el --- General-purpose boolean question-asker. -;;; Copyright (C) 1991, 1992 Free Software Foundation, Inc. +;;; Copyright (C) 1991, 1992, 1993 Free Software Foundation, Inc. ;; Author: Roland McGrath <roland@gnu.ai.mit.edu> ;; Keywords: lisp, extensions @@ -33,7 +33,8 @@ ;;; Code: ;;;###autoload -(defun map-y-or-n-p (prompter actor list &optional help action-alist) +(defun map-y-or-n-p (prompter actor list &optional help action-alist + no-cursor-in-echo-area) "Ask a series of boolean questions. Takes args PROMPTER ACTOR LIST, and optional args HELP and ACTION-ALIST. @@ -67,6 +68,9 @@ \"acted upon\", and the next object from LIST is processed. If it returns nil, the prompt is repeated for the same object. +Final optional argument NO-CURSOR-IN-ECHO-AREA non-nil says not to set +`cursor-in-echo-area' while prompting. + This function uses `query-replace-map' to define the standard responses, but not all of the responses which `query-replace' understands are meaningful here. @@ -114,7 +118,7 @@ (progn (setq quit-flag nil) ;; Prompt the user about this object. - (let ((cursor-in-echo-area t)) + (let ((cursor-in-echo-area (not no-cursor-in-echo-area))) (message "%s(y, n, !, ., q, %sor %s) " prompt user-keys (key-description (char-to-string help-char)))