branch: externals/idlwave
commit 74e4d168e94149baf3a0fbda12de9bb16d6c9a3f
Author: JD Smith <[email protected]>
Commit: JD Smith <[email protected]>
Debug/comments.
---
idlw-shell.el | 10 ++++++----
1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/idlw-shell.el b/idlw-shell.el
index ddeb552b07..feaf8dac4c 100644
--- a/idlw-shell.el
+++ b/idlw-shell.el
@@ -1385,10 +1385,10 @@ Disables line display after state scanning."
'(progn (idlwave-shell-strip-input)
(setq result idlwave-shell-command-output))
'hide 'wait nil 'disable)
- (with-current-buffer ;; DEBUGXXX
- (get-buffer-create "*idlwave-shell-output*")
- (goto-char (point-max))
- (insert (format "--[C.] New result: %s\n" result)))
+ ;; (with-current-buffer ;; DEBUGXXX
+ ;; (get-buffer-create "*idlwave-shell-output*")
+ ;; (goto-char (point-max))
+ ;; (insert (format "--[C.] New result: %s\n" result)))
result))
(defun idlwave-shell-send-char (c &optional error)
@@ -2354,10 +2354,12 @@ overlays."
"Display the source code one step up the calling stack."
(interactive)
(incf idlwave-shell-calling-stack-index)
+; (message "scsi-up: %d" idlwave-shell-calling-stack-index)
(idlwave-shell-display-level-in-calling-stack 'hide))
(defun idlwave-shell-stack-down ()
"Display the source code one step down the calling stack."
(interactive)
+; (message "scsi-down: %d" idlwave-shell-calling-stack-index)
(decf idlwave-shell-calling-stack-index)
(idlwave-shell-display-level-in-calling-stack 'hide))
