Mercurial > emacs
changeset 54295:9b36adcfe1ce
(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.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Sun, 07 Mar 2004 00:24:42 +0000 |
| parents | 82f7015caeae |
| children | 165e8b137f1b |
| files | lisp/gdb-ui.el |
| diffstat | 1 files changed, 9 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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)