* lisp/subr.el (y-or-n-p): Add code for batch mode.

Fixes: debbugs:9818

2 files changed, 22 insertions, 6 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7565548fe53..8309d3256bf 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2011-10-29  Chong Yidong  <cyd@gnu.org>
 
+        * subr.el (y-or-n-p): Add code for batch mode (Bug#9818).
+
         * mouse.el (mouse-yank-primary): Push the mark (Bug#9894).
 
         * textmodes/flyspell.el (flyspell-word): Fix char offset for
diff --git a/lisp/subr.el b/lisp/subr.el
index f3cd4dabe20..50ea49bd8c9 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2262,11 +2262,25 @@ is nil and `use-dialog-box' is non-nil."
   ;; where all the keys were unbound (i.e. it somehow got triggered
   ;; within read-key, apparently).  I had to kill it.
   (let ((answer 'recenter))
-    (if (and (display-popup-menus-p)
-             (listp last-nonmenu-event)
-             use-dialog-box)
-        (setq answer
-              (x-popup-dialog t `(,prompt ("Yes" . act) ("No" . skip))))
+    (cond
+     (noninteractive
+      (setq prompt (concat prompt
+                           (if (eq ?\s (aref prompt (1- (length prompt))))
+                               "" " ")
+                           "(y or n) "))
+      (let ((temp-prompt prompt))
+        (while (not (memq answer '(act skip)))
+          (let ((str (read-string temp-prompt)))
+            (cond ((member str '("y" "Y")) (setq answer 'act))
+                  ((member str '("n" "N")) (setq answer 'skip))
+                  (t (setq temp-prompt (concat "Please answer y or n.  "
+                                               prompt))))))))
+     ((and (display-popup-menus-p)
+           (listp last-nonmenu-event)
+           use-dialog-box)
+      (setq answer
+            (x-popup-dialog t `(,prompt ("Yes" . act) ("No" . skip)))))
+     (t
       (setq prompt (concat prompt
                            (if (eq ?\s (aref prompt (1- (length prompt))))
                                "" " ")
@@ -2288,7 +2302,7 @@ is nil and `use-dialog-box' is non-nil."
              ((memq answer '(exit-prefix quit)) (signal 'quit nil) t)
              (t t)))
         (ding)
-        (discard-input)))
+        (discard-input))))
     (let ((ret (eq answer 'act)))
       (unless noninteractive
         (message "%s %s" prompt (if ret "y" "n")))