Mercurial > hg > xemacs-beta

diff lisp/map-ynp.el @ 412:697ef44129c6 r21-2-14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-14
author cvs
date Mon, 13 Aug 2007 11:20:41 +0200
parents 2f8bb876ab1d
children
line wrap: on
line diff
--- a/lisp/map-ynp.el	Mon Aug 13 11:19:22 2007 +0200
+++ b/lisp/map-ynp.el	Mon Aug 13 11:20:41 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 A%_ll" . exit)
-			("%_Cancel" . quit)
+			("Yes All" . automatic)
+			("No All" . exit)
+			("Cancel" . quit)
 			,@(mapcar #'(lambda (elt)
 				      (cons (capitalize (nth 2 elt))
 					    (vector (nth 1 elt))))
@@ -231,8 +231,7 @@
 					    (lambda (elt)
 					      (format "%c to %s"
 						      (nth 0 elt)
-						      (normalize-menu-item-name
-						       (nth 2 elt)))))
+						      (nth 2 elt))))
 					   action-alist
 					   ";\n")
 				(if action-alist ";\n")