diff options
| author | Nick Roberts <nickrob@snap.net.nz> | 2004-03-06 12:02:25 +0000 |
|---|---|---|
| committer | Nick Roberts <nickrob@snap.net.nz> | 2004-03-06 12:02:25 +0000 |
| commit | 395b97272edb41560337ad31206c25d1336c2155 (patch) | |
| tree | be19d82e4dc8394b9e9dedddcedcd8804ad588a2 /lisp/gdb-ui.el | |
| parent | 0d3cb997d76a7682a541b68ce365d19514b8bbdd (diff) | |
| download | emacs-395b97272edb41560337ad31206c25d1336c2155.tar.gz | |
(gdb-assembler-mode, gdb-assembler-custom): Set up
overlay arrow string properly for the assembler buffer.
Diffstat (limited to 'lisp/gdb-ui.el')
| -rw-r--r-- | lisp/gdb-ui.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/gdb-ui.el b/lisp/gdb-ui.el index 85b03fbce40..de566902ec7 100644 --- a/lisp/gdb-ui.el +++ b/lisp/gdb-ui.el @@ -1831,7 +1831,6 @@ BUFFER nil or omitted means use the current buffer." (if (re-search-forward gdb-current-address nil t) (progn (setq pos (point)) - (setq gdb-overlay-arrow-string "=>") (beginning-of-line) (or gdb-overlay-arrow-position (setq gdb-overlay-arrow-position (make-marker))) @@ -1871,6 +1870,7 @@ BUFFER nil or omitted means use the current buffer." (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) (setq fringes-outside-margins t) (setq buffer-read-only t) |