set default-directory in dwarf-browse

[deliverable/binutils-gdb.git] / binutils / dwarf-mode.el

diff --git a/binutils/dwarf-mode.el b/binutils/dwarf-mode.el
index 407c49b8e29f04588ecc5f92ded089e804d202d3..cec56ec162975354ef3bdc7ae1cfe600f410be67 100644 (file)
--- a/binutils/dwarf-mode.el
+++ b/binutils/dwarf-mode.el
@@ -1,6 +1,6 @@
 ;;; dwarf-mode.el --- Browser for DWARF information.
 
-;; Version: 1.2
+;; Version: 1.3
 
 ;; Copyright (C) 2012-2016 Free Software Foundation, Inc.
 
@@ -162,6 +162,7 @@ This is the main interface to `dwarf-mode'."
         (buffer (generate-new-buffer (concat "*DWARF for " base-name "*"))))
     (pop-to-buffer buffer)
     (dwarf-mode)
+    (setq default-directory (file-name-directory file))
     (set (make-local-variable 'dwarf-file) file)
     (dwarf-do-refresh)))