# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1078619082 0
# Node ID 9b36adcfe1cee012a0fcd4ed6e4ef4908243e165
# Parent  82f7015caeae1dc2d2dc237471d4661c393be845
(gdb-overlay-arrow-position): Add defvar.
(gdb-reset): Reset gdb-overlay-arrow-position marker and remove it
from overlay-arrow-variable-list.
(gdb-assembler-mode): Use add-to-list for gdb-overlay-arrow-position.

diff -r 82f7015caeae -r 9b36adcfe1ce lisp/gdb-ui.el
--- a/lisp/gdb-ui.el	Sun Mar 07 00:24:14 2004 +0000
+++ b/lisp/gdb-ui.el	Sun Mar 07 00:24:42 2004 +0000
@@ -59,6 +59,7 @@
 (defvar gdb-var-list nil "List of variables in watch window")
 (defvar gdb-var-changed nil "Non-nil means that gdb-var-list has changed.")
 (defvar gdb-buffer-type nil)
+(defvar gdb-overlay-arrow-position nil)
 (defvar gdb-variables '()
   "A list of variables that are local to the GUD buffer.")
 
@@ -1682,7 +1683,12 @@
 		(gdb-remove-breakpoint-icons (point-min) (point-max) t)
 		(setq gud-minor-mode nil)
 		(kill-local-variable 'tool-bar-map)
-		(setq gud-running nil)))))))
+		(setq gud-running nil))))))
+  (when (markerp gdb-overlay-arrow-position)
+    (move-marker gdb-overlay-arrow-position nil)
+    (setq gdb-overlay-arrow-position nil))
+  (setq overlay-arrow-variable-list
+	(delq 'gdb-overlay-arrow-position overlay-arrow-variable-list)))
 
 (defun gdb-source-info ()
   "Find the source file where the program starts and displays it with related
@@ -1869,9 +1875,9 @@
 \\{gdb-assembler-mode-map}"
   (setq major-mode 'gdb-assembler-mode)
   (setq mode-name "Machine")
-  (push 'gdb-overlay-arrow-position overlay-arrow-variable-list)
+  (setq gdb-overlay-arrow-position nil)
+  (add-to-list 'overlay-arrow-variable-list 'gdb-overlay-arrow-position)
   (put 'gdb-overlay-arrow-position 'overlay-arrow-string "=>")
-  (setq gdb-overlay-arrow-position nil)
   (setq fringes-outside-margins t)
   (setq buffer-read-only t)
   (use-local-map gdb-assembler-mode-map)