Permalink
Browse files

Small change - trepanx suggests trepanx when it can't find another ru…

…by program.
  • Loading branch information...
1 parent ea085cd commit c11b102b2e7169de7b272bf225e20959d4f17829 @rocky rocky committed Sep 4, 2012
Showing with 6 additions and 3 deletions.
  1. +3 −2 dbgr/common/lang.el
  2. +1 −1 dbgr/debugger/trepanx/core.el
  3. +2 −0 test/test-lang.el
View
@@ -85,10 +85,11 @@ Within a given priority, we use the first one we find."
(setq result file)
(setq priority 6))))
(if (and is-not-directory (< priority 5))
- ;; Found some sort of executable file.
+ ;; Found some sort of regular file.
(progn
(setq result file)
- (setq priority 5)))))
+ (setq priority 5)))
+ ))
))
(if (< priority 6)
(if (setq file (dbgr-suggest-file-from-buffer lang-str))
@@ -130,7 +130,7 @@ NOTE: the above should have each item listed in quotes.
(defun trepanx-suggest-invocation (debugger-name)
"Suggest a trepanx command invocation via `dbgr-suggest-invocaton'"
(dbgr-suggest-invocation trepanx-command-name trepanx-minibuffer-history
- "ruby" "\\.rb$"))
+ "ruby" "\\.rb$" "trepanx"))
(defun trepanx-reset ()
"Trepanx cleanup - remove debugger's internal buffers (frame,
View
@@ -29,6 +29,8 @@
"dbgr-suggest-lang-file"
)
+(assert-t (file-exists-p (dbgr-suggest-lang-file "bogus" "\\.bogus$")))
+
(note "dbgr-suggest-file-from-buffer")

0 comments on commit c11b102

Please sign in to comment.