]> code.delx.au - gnu-emacs-elpa/blobdiff - dbgr/debugger/trepan.pl/track-mode.el
Set debug-track-mode properly.
[gnu-emacs-elpa] / dbgr / debugger / trepan.pl / track-mode.el
index 77bcff844470c3b872b8cc3ca6a27d91637ed7bb..7b6106bed6e391a25d0780e0a5f86401b73227bb 100644 (file)
@@ -1,4 +1,4 @@
-;;; Copyright (C) 2011 Rocky Bernstein <rocky@gnu.org>
+;;; Copyright (C) 2011, 2012 Rocky Bernstein <rocky@gnu.org>
 ;;; Perl trepanning Debugger tracking a comint or eshell buffer.
 
 (eval-when-compile (require 'cl))
@@ -48,10 +48,10 @@ described by PT."
   (dbgr-track-set-debugger "trepan.pl")
   (if dbgr-trepanpl-track-mode
       (progn 
-       (dbgr-track-mode 't)
+       (setq dbgr-track-mode 't)
        (run-mode-hooks (intern (dbgr-trepanpl-track-mode-hook))))
     (progn 
-      (dbgr-track-mode nil)
+      (setq dbgr-track-mode nil)
       ))
 )