(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.

diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el
index 15de8f3f663cd55e390ebeeb590ecc196af2bdf9..dd7c023433e25658127bfc749c0aea2c3392f66f 100644 (file)
--- 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)