mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

(map-y-or-n-p): Take new optional arg to not set cursor-in-echo-area.

Browse Source
This commit is contained in:
Roland McGrath 1993-10-12 00:53:28 +00:00
parent b30b6e2897
commit fd95709ebc
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/map-ynp.el
View File

@ -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 @@ FUNCTION is called. If it returns non-nil, the object is considered
\"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 @@ Returns the number of actions taken."
(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)))