Note we support Devel::Trepan. shortkey.el: some change from a while ago.

diff --git a/README.textile b/README.textile
index dab5965f87f0a67d22bfaa93df62d245f20a43d9..79dcb5d570da4b48b70ad171623dff76125fbe73 100644 (file)
--- a/README.textile
+++ b/README.textile
@@ -8,6 +8,7 @@ Debuggers we currently support are:
  * gdb  
  * "kshdb":https://github.com/rocky/kshdb/wiki (Korn Shell)
  * perldb (Perl)
+ * "Devel::Trepan":https://github.com/rocky/Perl-Devel-Trepan/wiki (Perl)
  * "pydb":http://bashdb.sourceforge.net/pydb/ (Python)
  * "pydbgr":http://code.google.com/p/pydbgr/ (Python)
  * "trepanning":https://github.com/rocky/rb-trepanning/wiki (Ruby 1.9)

diff --git a/dbgr/common/shortkey.el b/dbgr/common/shortkey.el
index 429f4cbd6e90a2e0cdd81dc2ca340dc0303d2335..bbb346d9f416f7330f09a478e71cdeea42a292fd 100644 (file)
--- a/dbgr/common/shortkey.el
+++ b/dbgr/common/shortkey.el
@@ -59,6 +59,12 @@ MODE-ON? a boolean which specifies if we are going into or out of this mode."
        (if (or (not buffer-read-only) 
                (not (eq (dbgr-sget 'srcbuf-info 'short-key?) mode-on?)))
            (progn 
+             ;; Save the current state, so we can determine when the
+             ;; state is toggled in the future.
+             (if (not (eq (dbgr-sget 'srcbuf-info 'short-key?) mode-on?))
+                 (progn
+                   (dbgr-srcbuf-info-short-key?= mode-on?)
+                   (setq dbgr-short-key-mode mode-on?)))
              (if mode-on?
                  ;; Mode is being turned on.
                  (progn
@@ -68,10 +74,7 @@ MODE-ON? a boolean which specifies if we are going into or out of this mode."
                ;; Mode is being turned off: restore read-only state.
                (setq buffer-read-only 
                      (dbgr-sget 'srcbuf-info 'was-read-only?)))
-             ;; Save the current state, so we can determine when the
-             ;; state is toggled in the future.
-             (dbgr-srcbuf-info-short-key?= mode-on?)
-             (setq dbgr-short-key-mode mode-on?))
+             )
          ;; (with-current-buffer-safe cmdbuf
          ;;   (dbgr-cmdbuf-info-src-shortkey?= mode-on?)
          ;;   (dbgr-cmdbuf-info-in-srcbuf?= mode-on?)