From 4bc8acf8e7787d808dcee1e4c893c4eb4b7491af Mon Sep 17 00:00:00 2001 From: Benson Chu Date: Mon, 11 May 2026 13:47:55 -0500 Subject: [PATCH] Feels weird not to have a y-or-n-p. --- config-programming.org | 19 ++++++++++--------- 1 file changed, 10 insertions(+), 9 deletions(-) diff --git a/config-programming.org b/config-programming.org index 0ad4571..cd522f6 100644 --- a/config-programming.org +++ b/config-programming.org @@ -449,15 +449,16 @@ (defun realgud:rr-reverse-continue () (interactive) - (let* ((buffer (current-buffer)) - (cmdbuf (realgud-get-cmdbuf)) - (cmd "reverse-continue")) - (progn - ;; Set flag to know which buffer to jump back to - (with-current-buffer-safe cmdbuf - (realgud-cmdbuf-info-in-srcbuf?= (not (realgud-cmdbuf? buffer)))) - ;; Run actual command - (realgud-command cmd nil nil nil nil)))) + (when (y-or-n-p "Reverse continue? ") + (let* ((buffer (current-buffer)) + (cmdbuf (realgud-get-cmdbuf)) + (cmd "reverse-continue")) + (progn + ;; Set flag to know which buffer to jump back to + (with-current-buffer-safe cmdbuf + (realgud-cmdbuf-info-in-srcbuf?= (not (realgud-cmdbuf? buffer)))) + ;; Run actual command + (realgud-command cmd nil nil nil nil))))) (define-key realgud:shortkey-mode-map (kbd "p") #'realgud:rr-reverse-next) (define-key realgud:shortkey-mode-map (kbd "C") #'realgud:rr-reverse-continue)