Only update arrows if they are set.

diff --git a/dbgr/common/fringe.el b/dbgr/common/fringe.el
index 72435f08f662d60f5dce3459a8a3fabe901a78cd..6328ba38f822932e3c086b8d0f661cc982eea064 100644 (file)
--- a/dbgr/common/fringe.el
+++ b/dbgr/common/fringe.el
@@ -134,22 +134,31 @@ session which should also erase those fringe arrows."
 (defun dbgr-goto-arrow1()
   "Goto the position stored in dbgr-overlay-arrow1"
   (interactive "")
-  (switch-to-buffer (marker-buffer dbgr-overlay-arrow1))
-  (goto-char dbgr-overlay-arrow1)
+  (if dbgr-overlay-arrow1
+      (progn
+       (switch-to-buffer (marker-buffer dbgr-overlay-arrow1))
+       (goto-char dbgr-overlay-arrow1)
+       ))
   )
 
 (defun dbgr-goto-arrow2()
   "Goto the position stored in dbgr-overlay-arrow2"
   (interactive "")
-  (switch-to-buffer (marker-buffer dbgr-overlay-arrow2))
-  (goto-char dbgr-overlay-arrow2)
+  (if dbgr-overlay-arrow2
+      (progn
+       (switch-to-buffer (marker-buffer dbgr-overlay-arrow2))
+       (goto-char dbgr-overlay-arrow2)
+       ))
   )
 
 (defun dbgr-goto-arrow3()
   "Goto the position stored in dbgr-overlay-arrow3"
   (interactive "")
-  (switch-to-buffer (marker-buffer dbgr-overlay-arrow3))
-  (goto-char dbgr-overlay-arrow3)
+  (if dbgr-overlay-arrow3
+      (progn
+       (switch-to-buffer (marker-buffer dbgr-overlay-arrow3))
+       (goto-char dbgr-overlay-arrow3)
+       ))
   )
 
 (defun dbgr-recenter-arrow1()