# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1078574545 0
# Node ID 14c46cc5bc34f33b2a710c392824c06b56cfb11c
# Parent  bf240c02022c0cbb91829413c1c332f782c56d6e
(gdb-assembler-mode, gdb-assembler-custom): Set up
overlay arrow string properly for the assembler buffer.

diff -r bf240c02022c -r 14c46cc5bc34 lisp/gdb-ui.el
--- a/lisp/gdb-ui.el	Sat Mar 06 12:01:36 2004 +0000
+++ b/lisp/gdb-ui.el	Sat Mar 06 12:02:25 2004 +0000
@@ -1831,7 +1831,6 @@
 	    (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 @@
   (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)