Mercurial > hg > xemacs-beta

comparison lisp/map-ynp.el @ 404:2f8bb876ab1d r21-2-32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-32
author cvs
date Mon, 13 Aug 2007 11:16:07 +0200
parents 8626e4521993
children 697ef44129c6
comparison
equal deleted inserted replaced
403:9f011ab08d48 404:2f8bb876ab1d
102 ;; Make a list describing a dialog box. 102 ;; Make a list describing a dialog box.
103 (let (;; (object (capitalize (or (nth 0 help) "object"))) 103 (let (;; (object (capitalize (or (nth 0 help) "object")))
104 ;; (objects (capitalize (or (nth 1 help) "objects"))) 104 ;; (objects (capitalize (or (nth 1 help) "objects")))
105 ;; (action (capitalize (or (nth 2 help) "act on"))) 105 ;; (action (capitalize (or (nth 2 help) "act on")))
106 ) 106 )
107 (setq map `(("Yes" . act) ("No" . skip) 107 (setq map `(("%_Yes" . act) ("%_No" . skip)
108 ; bogus crap. --ben 108 ; bogus crap. --ben
109 ; ((, (if help 109 ; ((, (if help
110 ; (capitalize 110 ; (capitalize
111 ; (or (nth 3 help) 111 ; (or (nth 3 help)
112 ; (concat action " All " objects))) 112 ; (concat action " All " objects)))
117 ; (concat action " " object " And Quit"))) 117 ; (concat action " " object " And Quit")))
118 ; "Do it and Quit")) . act-and-exit) 118 ; "Do it and Quit")) . act-and-exit)
119 ; ((, (capitalize 119 ; ((, (capitalize
120 ; (or (and help (nth 5 help)) "Quit"))) 120 ; (or (and help (nth 5 help)) "Quit")))
121 ; . exit) 121 ; . exit)
122 ("Yes All" . automatic) 122 ("Yes %_All" . automatic)
123 ("No All" . exit) 123 ("No A%_ll" . exit)
124 ("Cancel" . quit) 124 ("%_Cancel" . quit)
125 ,@(mapcar #'(lambda (elt) 125 ,@(mapcar #'(lambda (elt)
126 (cons (capitalize (nth 2 elt)) 126 (cons (capitalize (nth 2 elt))
127 (vector (nth 1 elt)))) 127 (vector (nth 1 elt))))
128 action-alist)) 128 action-alist))
129 mouse-event last-command-event)) 129 mouse-event last-command-event))
229 action object object action objects) 229 action object object action objects)
230 (mapconcat (function 230 (mapconcat (function
231 (lambda (elt) 231 (lambda (elt)
232 (format "%c to %s" 232 (format "%c to %s"
233 (nth 0 elt) 233 (nth 0 elt)
234 (nth 2 elt)))) 234 (normalize-menu-item-name
235 (nth 2 elt)))))
235 action-alist 236 action-alist
236 ";\n") 237 ";\n")
237 (if action-alist ";\n") 238 (if action-alist ";\n")
238 (format "or . (period) to %s \ 239 (format "or . (period) to %s \
239 the current %s and exit." 240 the current %s and exit."