diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-03-17 15:40:29 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-03-17 15:40:29 +0000 |
| commit | 5233c7f5fc9d5a9e88ff8e9b94111113d4fa46d9 (patch) | |
| tree | 6bdfb30523525c12f1ba5869200c2b19f78b9d20 /lisp/map-ynp.el | |
| parent | 4d2790ad5122ee7a8cf9e2f031d7fb53b1e5a8ec (diff) | |
| download | emacs-5233c7f5fc9d5a9e88ff8e9b94111113d4fa46d9.tar.gz | |
(map-y-or-n-p): Fix previous change.
Delete autoload cookie (file is preloaded).
Diffstat (limited to 'lisp/map-ynp.el')
| -rw-r--r-- | lisp/map-ynp.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/map-ynp.el b/lisp/map-ynp.el index 5ca5a7ee966..f45fe78e3c3 100644 --- a/lisp/map-ynp.el +++ b/lisp/map-ynp.el @@ -34,7 +34,6 @@ ;;; Code: -;;;###autoload (defun map-y-or-n-p (prompter actor list &optional help action-alist no-cursor-in-echo-area) "Ask a series of boolean questions. @@ -79,6 +78,8 @@ are meaningful here. Returns the number of actions taken." (let* ((actions 0) user-keys mouse-event map prompt char elt tail def + ;; Non-nil means we should use mouse menus to ask. + use-menus delayed-switch-frame (next (if (or (and list (symbolp list)) (subrp list) @@ -108,6 +109,7 @@ Returns the number of actions taken." (cons (capitalize (nth 2 elt)) (vector (nth 1 elt)))) action-alist)))) + use-menus t mouse-event last-nonmenu-event)) (setq user-keys (if action-alist (concat (mapconcat (function @@ -134,8 +136,8 @@ Returns the number of actions taken." (cond ((stringp prompt) ;; Prompt the user about this object. (setq quit-flag nil) - (if mouse-event - (setq def (or (x-popup-dialog mouse-event + (if use-menus + (setq def (or (x-popup-dialog (or mouse-event use-menus) (cons prompt map)) 'quit)) ;; Prompt in the echo area. |