[elpa] externals/gnorb 7ffc885 043/449: Commenting out my re-implementation of map-y-or-n-p

[Stefan Monnier]

branch: externals/gnorb
commit 7ffc885ec58cbe8b4bf98eeff75e23255f8c31b1
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Eric Abrahamsen <eric@ericabrahamsen.net>

    Commenting out my re-implementation of map-y-or-n-p
    
    They've got a better built-in one...
---
 lisp/gnorb-utils.el | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)

diff --git a/lisp/gnorb-utils.el b/lisp/gnorb-utils.el
index 1f7d05f..f279832 100644
--- a/lisp/gnorb-utils.el
+++ b/lisp/gnorb-utils.el
@@ -54,5 +54,34 @@
 (defvar gnorb-tmp-dir (make-temp-file "emacs-gnorb" t)
   "Temporary directory where attachments etc are saved.")
 
+;;; see map-y-or-n-p, you idiot
+
+;; (defun gnorb-query-attach (attachments action)
+;;   "Run through the attachments, make some queries, do the
+;;   action."
+;;   (let (continue-switch)
+;;     (dolist (a attachments)
+;;       (cond ((eq continue-switch 'none)
+;;          nil)
+;;         ((eq continue-switch 'all)
+;;          (funcall action a))
+;;         (t
+;;          (let ((input-char
+;;                 (read-char-choice
+;;                     (format
+;;                      "Attach %s? (y, n, Y, N): "
+;;                      (file-name-nondirectory a))
+;;                     '(?y ?n ?Y ?N))))
+;;            (cond
+;;             ((eq input-char ?y)
+;;              (funcall action a))
+;;             ((equal input-char ?n)
+;;              nil)
+;;             ((equal input-char ?N)
+;;              (setq continue-switch 'none))
+;;             ((equal input-char ?Y)
+;;              (funcall action a)
+;;              (setq continue-switch 'all)))))))))
+
 (provide 'gnorb-utils)
 ;;; gnorb-utils.el ends here