Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/map-ynp.el	Mon Aug 13 11:15:00 2007 +0200
+++ b/lisp/map-ynp.el	Mon Aug 13 11:16:07 2007 +0200
@@ -104,7 +104,7 @@
  	      ;; (objects (capitalize (or (nth 1 help) "objects")))
 	      ;; (action (capitalize (or (nth 2 help) "act on")))
 	      )
-	  (setq map `(("Yes" . act) ("No" . skip)
+	  (setq map `(("%_Yes" . act) ("%_No" . skip)
 ; bogus crap.  --ben
 ;			((, (if help
 ;				(capitalize
@@ -119,9 +119,9 @@
 ;			((, (capitalize
 ;			     (or (and help (nth 5 help)) "Quit")))
 ;			 . exit)
-			("Yes All" . automatic)
-			("No All" . exit)
-			("Cancel" . quit)
+			("Yes %_All" . automatic)
+			("No A%_ll" . exit)
+			("%_Cancel" . quit)
 			,@(mapcar #'(lambda (elt)
 				      (cons (capitalize (nth 2 elt))
 					    (vector (nth 1 elt))))
@@ -231,7 +231,8 @@
 					    (lambda (elt)
 					      (format "%c to %s"
 						      (nth 0 elt)
-						      (nth 2 elt))))
+						      (normalize-menu-item-name
+						       (nth 2 elt)))))
 					   action-alist
 					   ";\n")
 				(if action-alist ";\n")