# HG changeset patch # User Roland McGrath # Date 764296032 0 # Node ID 2acd8bf3819a2dd279530ee469eac639ca069d70 # Parent 30fabcc03f0c63b1e1a24ad9e5ccb2c04f488430 (map-y-or-n-p): Don't add any text to the ACTION-ALIST descriptions to make dialog box buttons. diff -r 30fabcc03f0c -r 2acd8bf3819a lisp/map-ynp.el --- a/lisp/map-ynp.el Tue Mar 22 00:14:47 1994 +0000 +++ b/lisp/map-ynp.el Tue Mar 22 00:27:12 1994 +0000 @@ -104,8 +104,7 @@ ((, (if help (concat action " All " objects) "Do All")) . automatic) (,@ (mapcar (lambda (elt) - (cons (concat (capitalize (nth 2 elt)) - " " object) + (cons (capitalize (nth 2 elt)) (vector (nth 1 elt)))) action-alist)))) mouse-event last-nonmenu-event))