Use same list of debuggers in backtrack-mode.el and make it use completing read too.

diff --git a/dbgr/common/backtrack-mode.el b/dbgr/common/backtrack-mode.el
index 12d21b93232b7ff2ca83e57e7ff79722d82c191e..ebb8cce6b9cba6ee8fda17a9f41ceae064f13f10 100644 (file)
--- a/dbgr/common/backtrack-mode.el
+++ b/dbgr/common/backtrack-mode.el
@@ -32,7 +32,8 @@
 (defun dbgr-backtrack-set-debugger (debugger-name)
   "Set debugger name This info is returned or nil if we can't find a 
 debugger with that information"
-  (interactive "sDebugger name: ")
+  (interactive 
+   (list (completing-read "Debugger name: " dbgr-debugger-names)))
   (let ((regexp-hash (gethash debugger-name dbgr-pat-hash)))
     (if regexp-hash
        (let* ((prefix 

diff --git a/dbgr/common/track.el b/dbgr/common/track.el
index 2c51a0da0a0b964489af323606978cb4c349780c..16b45ef3debb86a10dc58e7b3178ecec02fa96de 100644 (file)
--- a/dbgr/common/track.el
+++ b/dbgr/common/track.el
@@ -2,6 +2,28 @@
 (defconst dbgr-track-char-range 10000
   "Max number of characters from end of buffer to search for stack entry.")
 
+;;; FIXME: put somewhere else
+(defconst dbgr-debugger-names
+  '(
+    "bashdb"
+    "dbgr-gdb" 
+    "dbgr-kshdb"
+    "dbgr-pydb"
+    "gdb" 
+    "kshdb"
+    "perl5db" 
+    "perldb" 
+    "pydb"
+    "pydbgr"
+    "trepan"
+    "trepanpl"
+    "trepanx"
+    "zshdb"
+    )
+  "List of all debugger names"
+  )
+
+
 ;; Shell process buffers that we can hook into:
 (require 'esh-mode) 
 (require 'comint)
@@ -480,23 +502,7 @@ the buffer process. This info is returned or nil if we can't find a
 debugger with that information"
   ;; FIXME: turn in to fn which can be used by dbgr-backtrack-set-debugger
   (interactive 
-   (list (completing-read "Debugger name: "
-                         '(
-                           "bashdb"
-                           "dbgr-gdb" 
-                           "dbgr-kshdb"
-                           "dbgr-pydb"
-                           "gdb" 
-                           "kshdb"
-                           "perl5db" 
-                           "perldb" 
-                           "pydb"
-                           "pydbgr"
-                           "trepan"
-                           "trepanpl"
-                           "trepanx"
-                           "zshdb"
-                           ))))
+   (list (completing-read "Debugger name: " dbgr-debugger-names)))
 
   (let ((regexp-hash (gethash debugger-name dbgr-pat-hash))
        (command-hash (gethash debugger-name dbgr-command-hash))