From 2958481bab509c26b0e2df933facbe9b4ee36ceb Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Sun, 7 Mar 2004 00:24:42 +0000 Subject: [PATCH] (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. --- lisp/gdb-ui.el | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/lisp/gdb-ui.el b/lisp/gdb-ui.el index de566902ec7..456f6b70286 100644 --- a/lisp/gdb-ui.el +++ b/lisp/gdb-ui.el @@ -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 @@ This arrangement depends on the value of `gdb-many-windows'." (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 @@ BUFFER nil or omitted means use the current buffer." \\{gdb-assembler-mode-map}" (setq major-mode 'gdb-assembler-mode) (setq mode-name "Machine") - (push 'gdb-overlay-arrow-position overlay-arrow-variable-list) - (put 'gdb-overlay-arrow-position 'overlay-arrow-string "=>") (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 fringes-outside-margins t) (setq buffer-read-only t) (use-local-map gdb-assembler-mode-map) -- 2.39.5