- (let ((object (capitalize (nth 0 help)))
- (objects (capitalize (nth 1 help)))
- (action (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)
- (,@ (mapcar (lambda (elt)
- (cons (capitalize (nth 2 elt))
- (vector (nth 1 elt))))
- action-alist))))
+ (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)
+ ,@(mapcar (lambda (elt)
+ (cons (capitalize (nth 2 elt))
+ (vector (nth 1 elt))))
+ action-alist))