From 5a1ad629fb10ba03a015f0fd6f8549dd8694aff8 Mon Sep 17 00:00:00 2001
From: Nick Roberts <nickrob@snap.net.nz>
Date: Thu, 24 Apr 2008 22:35:08 +0000
Subject: [PATCH] (gdb-invalidate-assembler): Compare numeric value of
 addresses rather than (partial) string value. (gdb-frame-handler): Change
 regexp according to above change. (gdb-breakpoints-mode, gdb-frames-mode,
 gdb-threads-mode) (gdb-registers-mode, gdb-memory-mode, gdb-locals-mode)
 (gdb-assembler-mode): Disable undo in these buffers.

---
 lisp/progmodes/gdb-ui.el | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el
index 15de8f3f663..dd7c023433e 100644
--- a/lisp/progmodes/gdb-ui.el
+++ b/lisp/progmodes/gdb-ui.el
@@ -2155,6 +2155,7 @@ corresponding to the mode line clicked."
   (setq mode-name "Breakpoints")
   (use-local-map gdb-breakpoints-mode-map)
   (setq buffer-read-only t)
+  (buffer-disable-undo)
   (setq header-line-format gdb-breakpoints-header)
   (run-mode-hooks 'gdb-breakpoints-mode-hook)
   (if (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer) 'gdba)
@@ -2367,6 +2368,7 @@ $pc directly from the GUD buffer.  This command isn't normally needed."
   (add-to-list 'overlay-arrow-variable-list 'gdb-stack-position)
   (setq truncate-lines t)  ;; Make it easier to see overlay arrow.
   (setq buffer-read-only t)
+  (buffer-disable-undo)
   (gdb-thread-identification)
   (use-local-map gdb-frames-mode-map)
   (run-mode-hooks 'gdb-frames-mode-hook)
@@ -2467,6 +2469,7 @@ another GDB command e.g pwd, to see new frames")
   (setq major-mode 'gdb-threads-mode)
   (setq mode-name "Threads")
   (setq buffer-read-only t)
+  (buffer-disable-undo)
   (setq header-line-format gdb-breakpoints-header)
   (use-local-map gdb-threads-mode-map)
   (set (make-local-variable 'font-lock-defaults)
@@ -2591,6 +2594,7 @@ another GDB command e.g pwd, to see new frames")
   (setq mode-name "Registers")
   (setq header-line-format gdb-locals-header)
   (setq buffer-read-only t)
+  (buffer-disable-undo)
   (gdb-thread-identification)
   (use-local-map gdb-registers-mode-map)
   (run-mode-hooks 'gdb-registers-mode-hook)
@@ -2846,6 +2850,7 @@ another GDB command e.g pwd, to see new frames")
   (setq major-mode 'gdb-memory-mode)
   (setq mode-name "Memory")
   (setq buffer-read-only t)
+  (buffer-disable-undo)
   (use-local-map gdb-memory-mode-map)
   (setq header-line-format
 	'(:eval
@@ -3017,6 +3022,7 @@ another GDB command e.g pwd, to see new frames")
   (setq mode-name (concat "Locals:" gdb-selected-frame))
   (use-local-map gdb-locals-mode-map)
   (setq buffer-read-only t)
+  (buffer-disable-undo)
   (setq header-line-format gdb-locals-header)
   (gdb-thread-identification)
   (set (make-local-variable 'font-lock-defaults)
@@ -3502,6 +3508,7 @@ BUFFER nil or omitted means use the current buffer."
   (add-to-list 'overlay-arrow-variable-list 'gdb-overlay-arrow-position)
   (setq fringes-outside-margins t)
   (setq buffer-read-only t)
+  (buffer-disable-undo)
   (gdb-thread-identification)
   (use-local-map gdb-assembler-mode-map)
   (gdb-invalidate-assembler)
-- 
2.39.5