diff --git a/lisp/emacs-custom-load-or-ask.el b/lisp/emacs-custom-load-or-ask.el
index a69530c..459dc20 100644
--- a/lisp/emacs-custom-load-or-ask.el
+++ b/lisp/emacs-custom-load-or-ask.el
@@ -83,6 +83,18 @@
   (dolist (prompt ec/my-variables-list)
     (ec/rerun-prompt prompt)))
 
+(defun ec/get-one-prompt-result ()
+  (interactive)
+  (let ((resp (completing-read "Which prompt? "
+                               (mapcar #'(lambda (a)
+                                           (last a))
+                                       ec/my-variables-list))))
+    (cl-loop for i in ec/my-variables-list
+             until (member resp i)
+             finally
+             do
+             (message "%s" (eval (cadr i))))))
+
 (defun ec/rerun-one-prompt ()
   (interactive)
   (let ((resp (completing-read "Which prompt? "