(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)