(gdb-frame-handler-1): Make overlay arrow

hollow if not in innermost frame.

1 files changed, 20 insertions, 5 deletions

diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el
index a4e53c47fe1..d96dc4b7711 100644
--- a/lisp/progmodes/gdb-ui.el
+++ b/lisp/progmodes/gdb-ui.el
@@ -2288,11 +2288,13 @@ corresponding to the mode line clicked."
 	      (forward-line 1))
 	    (forward-line -1)
 	    (when (looking-at "(More stack frames follow...)")
-	      (add-text-properties (match-beginning 0) (match-end 0)
-				   '(mouse-face highlight
-						gdb-max-frames t
-						help-echo
-						"mouse-2, RET: customize gdb-max-frames to see more frames")))))
+	      (add-text-properties
+	       (match-beginning 0) (match-end 0)
+	       '(mouse-face highlight
+		 gdb-max-frames t
+		 help-echo
+		   "mouse-2, RET: customize gdb-max-frames to see more frames"
+		 )))))
 	(when gdb-look-up-stack
 	  (goto-char (point-min))
 	  (when (re-search-forward "\\(\\S-+?\\):\\([0-9]+\\)" nil t)
@@ -3645,6 +3647,19 @@ from=\"\\(.*?\\)\"\\)")
       (if (gdb-get-buffer 'gdb-assembler-buffer)
 	  (with-current-buffer (gdb-get-buffer 'gdb-assembler-buffer)
 	    (setq mode-name (concat "Machine:" gdb-selected-frame)))))
+    (if (and (match-string 4) (match-string 5) gud-overlay-arrow-position)
+	(let ((buffer (marker-buffer gud-overlay-arrow-position))
+	      (position (marker-position gud-overlay-arrow-position)))
+	  (when (and buffer
+		     (string-equal (file-name-nondirectory
+				    (buffer-file-name buffer))
+				   (file-name-nondirectory (match-string 4))))
+	    (with-current-buffer buffer
+	      (setq fringe-indicator-alist
+		    (if (string-equal gdb-frame-number "0")
+			nil
+		      '((overlay-arrow . hollow-right-triangle))))
+	      (set-marker gud-overlay-arrow-position position)))))
   (gdb-invalidate-assembler))
 
 ; Uses "-var-list-children --all-values".  Needs GDB 6.4 onwards.