el/dot-emacs.el: Help `gud-find-expr' to not crash if prompts are read-only.

[profile] / el / dot-emacs.el

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index 5475b35612b281155cb7dd4335e2125ccf95f99e..1fc526349355ab16d15cc332ce72d8f777c56423 100644 (file)
--- 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))
 
   "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.
 
 ;;;--------------------------------------------------------------------------
 ;;; SQL stuff.