pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-06-14 12:21:20 +00:00
Code Issues Projects Releases Packages Wiki Activity

Feels weird not to have a y-or-n-p.

Browse source
This commit is contained in:
Benson Chu 2026-05-11 13:47:55 -05:00
parent 7ac690b51e
commit 4bc8acf8e7
1 changed files with 10 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
config-programming.org
View file

@ -449,15 +449,16 @@
(defun realgud:rr-reverse-continue () (defun realgud:rr-reverse-continue ()
(interactive) (interactive)
(let* ((buffer (current-buffer)) (when (y-or-n-p "Reverse continue? ")
(cmdbuf (realgud-get-cmdbuf)) (let* ((buffer (current-buffer))
(cmd "reverse-continue")) (cmdbuf (realgud-get-cmdbuf))
(progn (cmd "reverse-continue"))
;; Set flag to know which buffer to jump back to (progn
(with-current-buffer-safe cmdbuf ;; Set flag to know which buffer to jump back to
(realgud-cmdbuf-info-in-srcbuf?= (not (realgud-cmdbuf? buffer)))) (with-current-buffer-safe cmdbuf
;; Run actual command (realgud-cmdbuf-info-in-srcbuf?= (not (realgud-cmdbuf? buffer))))
(realgud-command cmd nil nil nil nil)))) ;; 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 "p") #'realgud:rr-reverse-next)
(define-key realgud:shortkey-mode-map (kbd "C") #'realgud:rr-reverse-continue) (define-key realgud:shortkey-mode-map (kbd "C") #'realgud:rr-reverse-continue)