(gdb-assembler-mode, gdb-assembler-custom): Set up

overlay arrow string properly for the assembler buffer.

diff --git a/lisp/gdb-ui.el b/lisp/gdb-ui.el
index 85b03fbce40c9ad4c72dc9a8d9e7f0be1349ba98..de566902ec788033458ea6cc679d7a16c0719afe 100644 (file)
--- 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)