mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

(map-y-or-n-p): Reorder the options

Browse source 
and rename some of them to be more self-explanatory.
This commit is contained in:
Richard M. Stallman 2005-08-09 11:36:58 +00:00
parent ce08e7d4c2
commit 369a47a4fc
1 changed files with 10 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/emacs-lisp/map-ynp.el
View file

@ -103,15 +103,18 @@ Returns the number of actions taken."
(let ((object (if help (capitalize (nth 0 help)))) (let ((object (if help (capitalize (nth 0 help))))
(objects (if help (capitalize (nth 1 help)))) (objects (if help (capitalize (nth 1 help))))
(action (if help (capitalize (nth 2 help))))) (action (if help (capitalize (nth 2 help)))))
(setq map `(("Yes" . act) ("No" . skip) ("Quit" . exit) (setq map `(("Yes" . act) ("No" . skip)
(,(if help (concat action " " object " And Quit") ,@(mapcar (lambda (elt)
"Do it and Quit") . act-and-exit) (cons (with-syntax-table
text-mode-syntax-table
(capitalize (nth 2 elt)))
(vector (nth 1 elt))))
action-alist)
(,(if help (concat action " This But No More")
"Do This But No More") . act-and-exit)
(,(if help (concat action " All " objects) (,(if help (concat action " All " objects)
"Do All") . automatic) "Do All") . automatic)
,@(mapcar (lambda (elt) ("No For All" . exit))
(cons (capitalize (nth 2 elt))
(vector (nth 1 elt))))
action-alist))
use-menus t use-menus t
mouse-event last-nonmenu-event)) mouse-event last-nonmenu-event))
(setq user-keys (if action-alist (setq user-keys (if action-alist