[elpa] master 447ab36 08/56: host removing ansi-schmutz to mode setting.

[Rocky Bernstein]

branch: master
commit 447ab36a9be9d05a0815086320d8ba67bea1231f
Author: rocky <address@hidden>
Commit: rocky <address@hidden>

    host removing ansi-schmutz to mode setting.
---
 realgud/debugger/nodejs/nodejs.el       | 17 ++++++++---------
 realgud/debugger/nodejs/track-mode.el   |  3 +++
 realgud/debugger/trepanjs/track-mode.el |  3 +++
 realgud/debugger/trepanjs/trepanjs.el   | 16 ++++++++--------
 realgud/debugger/zshdb/track-mode.el    |  2 ++
 realgud/debugger/zshdb/zshdb.el         | 16 ++++++++--------
 6 files changed, 32 insertions(+), 25 deletions(-)

diff --git a/realgud/debugger/nodejs/nodejs.el 
b/realgud/debugger/nodejs/nodejs.el
index 5096477..3670820 100644
--- a/realgud/debugger/nodejs/nodejs.el
+++ b/realgud/debugger/nodejs/nodejs.el
@@ -12,11 +12,9 @@
 (require-relative-list '("../../common/helper") "realgud-")
 (require-relative-list '("../../common/run")    "realgud:")
 (require-relative-list '("core" "track-mode")   "realgud:nodejs-")
-(require-relative-list '("../../common/utils")    "realgud-")
 (require-relative-list '("../../lang/js") "realgud-lang-")
 
 (declare-function realgud:run-debugger 'realgud:run)
-(declare-function realgud:-remove-ansi-schmutz 'realgud-utils)
 
 ;; This is needed, or at least the docstring part of it is needed to
 ;; get the customization menu to work in Emacs 24.
@@ -69,13 +67,14 @@ fringe and marginal icons.
                               'nodejs-query-cmdline 'nodejs-parse-cmd-args
                               'realgud:nodejs-minibuffer-history
                               opt-cmd-line no-reset)))
-    (if cmd-buf
-       (with-current-buffer cmd-buf
-         ;; FIXME should allow customization whether to do or not
-         ;; and also only do if hook is not already there.
-         (realgud:remove-ansi-schmutz)
-         )
-      )))
+    ;; (if cmd-buf
+    ;;         (with-current-buffer cmd-buf
+    ;;           ;; FIXME should allow customization whether to do or not
+    ;;           ;; and also only do if hook is not already there.
+    ;;           (realgud:remove-ansi-schmutz)
+    ;;           )
+    ;;   )
+    ))
 
 ;; There is already a nodejs command in `nodejs-repl'.
 ;; (defalias 'nodejs 'realgud:nodejs)
diff --git a/realgud/debugger/nodejs/track-mode.el 
b/realgud/debugger/nodejs/track-mode.el
index 6afaa62..2c4c88c 100644
--- a/realgud/debugger/nodejs/track-mode.el
+++ b/realgud/debugger/nodejs/track-mode.el
@@ -22,6 +22,7 @@
                         "../../common/menu"
                         "../../common/track"
                         "../../common/track-mode"
+                        "../../common/utils"
                         )
                       "realgud-")
 (require-relative-list '("core" "init") "realgud:nodejs-")
@@ -29,6 +30,7 @@
 
 (declare-function realgud:track-set-debugger 'realgud-track-mode)
 (declare-function realgud-track-mode-setup   'realgud-track-mode)
+(declare-function realgud:remove-ansi-schmutz 'realgud:utils)
 
 (realgud-track-mode-vars "nodejs")
 
@@ -38,6 +40,7 @@
   (if nodejs-track-mode
       (progn
        (use-local-map nodejs-track-mode-map)
+       (realgud:remove-ansi-schmutz)
        (message "using nodejs mode map")
        )
     (message "nodejs track-mode-hook disable called"))
diff --git a/realgud/debugger/trepanjs/track-mode.el 
b/realgud/debugger/trepanjs/track-mode.el
index 5d8c8cd..7a4d847 100644
--- a/realgud/debugger/trepanjs/track-mode.el
+++ b/realgud/debugger/trepanjs/track-mode.el
@@ -23,6 +23,7 @@
                         "../../common/menu"
                         "../../common/track"
                         "../../common/track-mode"
+                        "../../common/utils"
                         )
                       "realgud-")
 (require-relative-list '("core" "init") "realgud:trepanjs-")
@@ -33,6 +34,7 @@
 (declare-function realgud-track-mode-setup 'realgud-track-mode)
 (declare-function realgud:track-set-debugger 'realgud-track-mode)
 (declare-function realgud-goto-line-for-pt 'realgud-track-mode)
+(declare-function realgud:remove-ansi-schmutz 'realgud:utils)
 
 (realgud-track-mode-vars "trepanjs")
 
@@ -56,6 +58,7 @@ described by PT."
   (if trepanjs-track-mode
       (progn
        (use-local-map trepanjs-track-mode-map)
+       (realgud:remove-ansi-schmutz)
        (message "using trepanjs mode map")
        )
     (message "trepanjs track-mode-hook disable called"))
diff --git a/realgud/debugger/trepanjs/trepanjs.el 
b/realgud/debugger/trepanjs/trepanjs.el
index 3299c7c..1093fc7 100644
--- a/realgud/debugger/trepanjs/trepanjs.el
+++ b/realgud/debugger/trepanjs/trepanjs.el
@@ -26,7 +26,6 @@
 
 (declare-function realgud:trepanjs-query-cmdline  'realgud:trepanjs-core)
 (declare-function realgud:trepanjs-parse-cmd-args 'realgud:trepanjs-core)
-(declare-function realgud:remove-ansi-schmutz 'realgud-utils)
 (declare-function realgud:run-debugger 'realgud:run)
 
 ;; This is needed, or at least the docstring part of it is needed to
@@ -72,13 +71,14 @@ fringe and marginal icons.
                               'realgud:trepanjs-parse-cmd-args
                               'realgud:trepanjs-minibuffer-history
                               opt-cmd-line no-reset)))
-    (if cmd-buf
-       (with-current-buffer cmd-buf
-         ;; FIXME should allow customization whether to do or not
-         ;; and also only do if hook is not already there.
-         (realgud:remove-ansi-schmutz)
-         )
-      )))
+    ;; (if cmd-buf
+    ;;         (with-current-buffer cmd-buf
+    ;;           ;; FIXME should allow customization whether to do or not
+    ;;           ;; and also only do if hook is not already there.
+    ;;           (realgud:remove-ansi-schmutz)
+    ;;           )
+    ;;   )
+    ))
 
 (defalias 'trepanjs 'realgud:trepanjs)
 (provide-me "realgud-")
diff --git a/realgud/debugger/zshdb/track-mode.el 
b/realgud/debugger/zshdb/track-mode.el
index ecf0b12..9025a06 100644
--- a/realgud/debugger/zshdb/track-mode.el
+++ b/realgud/debugger/zshdb/track-mode.el
@@ -24,6 +24,7 @@
 (declare-function realgud-track-mode-setup   'realgud-track-mode)
 (declare-function realgud-posix-shell-populate-command-keys
                  'realgud-lang-posix-shell)
+(declare-function realgud:zshdb-remove-ansi-schmutz 'realgud:zshdb-core)
 
 (realgud-track-mode-vars "zshdb")
 (realgud-posix-shell-populate-command-keys zshdb-track-mode-map)
@@ -35,6 +36,7 @@
   (if zshdb-track-mode
       (progn
        (use-local-map zshdb-track-mode-map)
+       (realgud:zshdb-remove-ansi-schmutz)
        (message "using zshdb mode map")
        )
     (message "zshdb track-mode-hook disable called"))
diff --git a/realgud/debugger/zshdb/zshdb.el b/realgud/debugger/zshdb/zshdb.el
index 0812997..9f3a6b6 100644
--- a/realgud/debugger/zshdb/zshdb.el
+++ b/realgud/debugger/zshdb/zshdb.el
@@ -14,7 +14,6 @@
 (require-relative-list '("../../common/run")    "realgud:")
 (require-relative-list '("core" "track-mode")   "realgud:zshdb-")
 
-(declare-function realgud:zshdb-remove-ansi-schmutz 'realgud:zshdb-core)
 (declare-function zshdb-track-mode (bool))
 (declare-function zshdb-query-cmdline  'realgud:zshdb-core)
 (declare-function zshdb-parse-cmd-args 'realgud:zshdb-core)
@@ -75,13 +74,14 @@ fringe and marginal icons.
                               'zshdb-parse-cmd-args
                               'realgud:zshdb-minibuffer-history
                               opt-cmd-line no-reset)))
-    (if cmd-buf
-       (with-current-buffer cmd-buf
-         ;; FIXME should allow customization whether to do or not
-         ;; and also only do if hook is not already there.
-         (realgud:zshdb-remove-ansi-schmutz)
-         )
-      )))
+    ;; (if cmd-buf
+    ;;         (with-current-buffer cmd-buf
+    ;;           ;; FIXME should allow customization whether to do or not
+    ;;           ;; and also only do if hook is not already there.
+    ;;           (realgud:zshdb-remove-ansi-schmutz)
+    ;;           )
+    ;;   )
+    ))
 
 (defalias 'zshdb 'realgud:zshdb)