103 |
(let ((object (if help (capitalize (nth 0 help)))) |
(let ((object (if help (capitalize (nth 0 help)))) |
104 |
(objects (if help (capitalize (nth 1 help)))) |
(objects (if help (capitalize (nth 1 help)))) |
105 |
(action (if help (capitalize (nth 2 help))))) |
(action (if help (capitalize (nth 2 help))))) |
106 |
(setq map `(("Yes" . act) ("No" . skip) ("Quit" . exit) |
(setq map `(("Yes" . act) ("No" . skip) |
|
(,(if help (concat action " " object " And Quit") |
|
|
"Do it and Quit") . act-and-exit) |
|
|
(,(if help (concat action " All " objects) |
|
|
"Do All") . automatic) |
|
107 |
,@(mapcar (lambda (elt) |
,@(mapcar (lambda (elt) |
108 |
(cons (capitalize (nth 2 elt)) |
(cons (with-syntax-table |
109 |
|
text-mode-syntax-table |
110 |
|
(capitalize (nth 2 elt))) |
111 |
(vector (nth 1 elt)))) |
(vector (nth 1 elt)))) |
112 |
action-alist)) |
action-alist) |
113 |
|
(,(if help (concat action " This But No More") |
114 |
|
"Do This But No More") . act-and-exit) |
115 |
|
(,(if help (concat action " All " objects) |
116 |
|
"Do All") . automatic) |
117 |
|
("No For All" . exit)) |
118 |
use-menus t |
use-menus t |
119 |
mouse-event last-nonmenu-event)) |
mouse-event last-nonmenu-event)) |
120 |
(setq user-keys (if action-alist |
(setq user-keys (if action-alist |