diff options
| author | Richard M. Stallman <rms@gnu.org> | 2005-08-09 11:36:58 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2005-08-09 11:36:58 +0000 |
| commit | 369a47a4fc42e79d2fde1c2bca380db4b79fd77d (patch) | |
| tree | d462096f8fd5c2f8279a505a6f91357c53d90b03 /lisp/emacs-lisp/map-ynp.el | |
| parent | ce08e7d4c24867cd8257541a6791c41e35837d58 (diff) | |
| download | emacs-369a47a4fc42e79d2fde1c2bca380db4b79fd77d.tar.gz | |
(map-y-or-n-p): Reorder the options
and rename some of them to be more self-explanatory.
Diffstat (limited to 'lisp/emacs-lisp/map-ynp.el')
| -rw-r--r-- | lisp/emacs-lisp/map-ynp.el | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/lisp/emacs-lisp/map-ynp.el b/lisp/emacs-lisp/map-ynp.el index e4b6f1ddce0..84c7ae58ced 100644 --- a/lisp/emacs-lisp/map-ynp.el +++ b/lisp/emacs-lisp/map-ynp.el @@ -103,15 +103,18 @@ Returns the number of actions taken." (let ((object (if help (capitalize (nth 0 help)))) (objects (if help (capitalize (nth 1 help)))) (action (if help (capitalize (nth 2 help))))) - (setq map `(("Yes" . act) ("No" . skip) ("Quit" . exit) - (,(if help (concat action " " object " And Quit") - "Do it and Quit") . act-and-exit) - (,(if help (concat action " All " objects) - "Do All") . automatic) + (setq map `(("Yes" . act) ("No" . skip) ,@(mapcar (lambda (elt) - (cons (capitalize (nth 2 elt)) + (cons (with-syntax-table + text-mode-syntax-table + (capitalize (nth 2 elt))) (vector (nth 1 elt)))) - action-alist)) + action-alist) + (,(if help (concat action " This But No More") + "Do This But No More") . act-and-exit) + (,(if help (concat action " All " objects) + "Do All") . automatic) + ("No For All" . exit)) use-menus t mouse-event last-nonmenu-event)) (setq user-keys (if action-alist |