Of course I forgot to mention that (message "y/n") is supposed to be the traditional y-or-n-p implementation and (message "yes/no") is supposed to be the traditional yes-or-no-p implementation. On Fri, Sep 4, 2015 at 2:52 PM Kaushal Modi wrote: > @Eli, @Drew > > Would this psuedocode work? > > (progn > ;; Possible values: nil, 'quick, 'verbose > ;; (defconst yes-or-no-option nil) > ;; (defconst yes-or-no-option 'quick) > (defconst yes-or-no-option 'verbose) > ;; If nil, yes-or-no-p and y-or-n-p will work their traditional ways > ;; If 'quick , both yes-or-no-p and y-or-n-p will work like y-or-n-p > ;; If 'verbose , both yes-or-no-p and y-or-n-p will work like yes-or-no-p > > ;; yes-or-no-p now implemented in elisp instead of C > (defun yes-or-no-p (prompt) > (if (eq yes-or-no-option 'quick) > (message "y/n") > (message "yes/no"))) > > ;; y-or-n-p redefined > (defun y-or-n-p (prompt) > (let* ((orig--yes-or-no-option yes-or-no-option) > (yes-or-no-option (if (eq orig--yes-or-no-option 'verbose) > 'verbose > 'quick))) > (yes-or-no-p prompt))) > > (message "yes-or-no-p:") > (yes-or-no-p "Q? ") > (message "y-or-n-p:") > (y-or-n-p "Q? ") > nil) > > On Fri, Sep 4, 2015 at 2:50 PM David Kastrup wrote: > >> Eli Zaretskii writes: >> >> >> From: David Kastrup >> >> Cc: Alan Mackenzie , kaushal.modi@gmail.com, >> >> bruce.connor.am@gmail.com, emacs-devel@gnu.org, >> >> schwab@linux-m68k.org, monnier@iro.umontreal.ca, dgutov@yandex.ru, >> >> drew.adams@oracle.com >> >> Date: Fri, 04 Sep 2015 20:14:51 +0200 >> >> >> >> Eli Zaretskii writes: >> >> >> >> > The intent is to provide a predicate defcustom that allows to cause >> >> > yes-or-no-p behave like y-or-n-p. y-or-n-p will always behave as it >> >> > does, and I didn't intend to change that, as I don't see the use case >> >> > for that. >> >> >> >> Reliable translation into selection boxes when feeding emacs -batch >> from >> >> a script? >> > >> > y-or-n-p already does TRT in that case (no dialog boxes in -batch). >> >> Feeding emacs -batch _from_ a script. Meaning the script supplies "yes" >> and "no". >> >> >> Predictable behavior when navigating Emacs by voice? >> > >> > I don't see the relevance, please elaborate. >> >> Same as above. External input translated into a source for consumption >> by Emacs. >> >> >> Some people may prefer saying "yes" to saying "why". >> > >> > Likewise. >> >> "why" is phonetically the same as "y". Which means that it's likely >> harder to generate just "y" from voice than "yes". >> >> -- >> David Kastrup >> >