From e8bcfd6a55b4b5edfac39069eaf26139817673c1 Mon Sep 17 00:00:00 2001
Message-Id: <e8bcfd6a55b4b5edfac39069eaf26139817673c1.1717778587.git.mdw@distorted.org.uk>
From: Mark Wooding <mdw@chiark.greenend.org.uk>
Date: Mon, 29 Apr 2024 11:00:03 +0100
Subject: [PATCH] el/dot-emacs.el: Help `gud-find-expr' to not crash if prompts
 are read-only.
Organization: Straylight/Edgeware

From: Mark Wooding <mdw@distorted.org.uk>

Silly rabbit.
---
 el/dot-emacs.el | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index 5475b35..1fc5263 100644
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -5507,6 +5507,11 @@ (defadvice gdb-set-window-buffer
   "Don't make windows dedicated.  Seriously."
   (set-window-dedicated-p (or window (selected-window)) nil))
 
+(defadvice gud-find-expr
+    (around mdw-inhibit-read-only (&rest args) compile activate)
+  "Inhibit errors caused by my setting of `comint-prompt-read-only'."
+  (let ((inhibit-read-only t)) ad-do-it))
+
 ;;;--------------------------------------------------------------------------
 ;;; SQL stuff.
 
-- 
[mdw]