diff options
| author | Kim F. Storm <storm@cua.dk> | 2004-03-07 00:24:42 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2004-03-07 00:24:42 +0000 |
| commit | 2958481bab509c26b0e2df933facbe9b4ee36ceb (patch) | |
| tree | a981acc448dc0fa4962e9b88e279613f9966d647 /lisp/gdb-ui.el | |
| parent | d90ee664e10667b6c929af302ce1d04e3a057fa5 (diff) | |
| download | emacs-2958481bab509c26b0e2df933facbe9b4ee36ceb.tar.gz | |
(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.
Diffstat (limited to 'lisp/gdb-ui.el')
| -rw-r--r-- | lisp/gdb-ui.el | 12 |
1 files 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) |