/[emacs]/emacs/lisp/emacs-lisp/map-ynp.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/map-ynp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by ttn, Sat Aug 6 17:08:59 2005 UTC revision 1.6 by rms, Tue Aug 9 11:36:58 2005 UTC
# Line 103  Returns the number of actions taken." Line 103  Returns the number of actions taken."
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

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26