X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmap-ynp.el;h=80b0f8459234eeebe3cab72f7c5ac6edf10480cc;hb=59483252003895f7e52f747b322c84073c676922;hp=6fef0e937cfc1de45a471e739b53fec51d33ace1;hpb=a5f466de30a3e927ed1146b0c7e3870e71465c8f;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/map-ynp.el b/lisp/map-ynp.el
index 6fef0e9..80b0f84 100644
--- a/lisp/map-ynp.el
+++ b/lisp/map-ynp.el
@@ -104,7 +104,7 @@ Returns the number of actions taken."
  	      ;; (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 @@ Returns the number of actions taken."
 ;			((, (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 @@ ESC or `q' to exit;\n"
 					    (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")