From: Nick Roberts <nickrob@snap.net.nz>
Date: Sat, 6 Mar 2004 12:02:25 +0000 (+0000)
Subject: (gdb-assembler-mode, gdb-assembler-custom): Set up
X-Git-Tag: ttn-vms-21-2-B4~7332
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=395b97272edb41560337ad31206c25d1336c2155;p=emacs.git

(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 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)