[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Problem with exit prompt
From: |
Richard M. Stallman |
Subject: |
Re: Problem with exit prompt |
Date: |
Sun, 31 Jul 2005 20:45:47 -0400 |
Please try this change. It won't fix your problem, which doesn't
happen on GNU/Linux, but it will clarify the various options.
*** map-ynp.el 05 Jul 2005 00:45:48 -0400 1.4
--- map-ynp.el 31 Jul 2005 09:39:51 -0400
***************
*** 102,110 ****
(let ((object (if help (capitalize (nth 0 help))))
(objects (if help (capitalize (nth 1 help))))
(action (if help (capitalize (nth 2 help)))))
! (setq map `(("Yes" . act) ("No" . skip) ("Quit" . exit)
! (,(if help (concat action " " object " And Quit")
! "Do it and Quit") . act-and-exit)
(,(if help (concat action " All " objects)
"Do All") . automatic)
,@(mapcar (lambda (elt)
--- 102,111 ----
(let ((object (if help (capitalize (nth 0 help))))
(objects (if help (capitalize (nth 1 help))))
(action (if help (capitalize (nth 2 help)))))
! (setq map `(("Yes" . act) ("No" . skip)
! ("Stop Asking" . exit)
! (,(if help (concat action " This But No More")
! "Do This But No More") . act-and-exit)
(,(if help (concat action " All " objects)
"Do All") . automatic)
,@(mapcar (lambda (elt)