branch: externals/idlwave
commit 08715834d2c3621f7eb073c74ab14d1ebc169df2
Author: JD Smith <jdtsm...@gmail.com>
Commit: JD Smith <jdtsm...@gmail.com>
Cleanup comments/etc.
emacs->Emacs
Skip python mode de-interference
debug code comments.
---
idlw-shell.el | 26 +++++++++++++-------------
1 file changed, 13 insertions(+), 13 deletions(-)
diff --git a/idlw-shell.el b/idlw-shell.el
index 79b3f539cf..22387801d5 100644
--- a/idlw-shell.el
+++ b/idlw-shell.el
@@ -33,7 +33,7 @@
;; This mode is for IDL version 5 or later. It should work on
;; Emacs>20.3 or XEmacs>20.4.
;;
-;; Runs IDL as an inferior process of Emacs, much like the emacs
+;; Runs IDL as an inferior process of Emacs, much like the Emacs
;; `shell' or `telnet' commands. Provides command history and
;; searching. Provides debugging commands available in buffers
;; visiting IDL procedure files, e.g., breakpoint setting, stepping,
@@ -1039,7 +1039,8 @@ IDL has currently stepped.")
(setq idlwave-shell-ready nil)
(setq idlwave-shell-bp-alist nil)
(idlwave-shell-update-bp-overlays) ; Throw away old overlays
- (setq idlwave-shell-sources-alist nil)
+ (setq idlwave-shell-post-command-hook nil ;clean up any old stuff
+ idlwave-shell-sources-alist nil)
(setq idlwave-shell-default-directory default-directory)
(setq idlwave-shell-hide-output nil)
@@ -1075,12 +1076,6 @@ IDL has currently stepped.")
'append 'local)
(add-hook 'comint-output-filter-functions 'comint-strip-ctrl-m nil 'local))
- ;; Python-mode, bundled with many Emacs installs, quite cavalierly
- ;; adds this function to the global default hook. It interferes
- ;; with overlay-arrows.
- (remove-hook 'comint-output-filter-functions 'py-pdbtrack-track-stack-file)
-
-
;; IDLWAVE syntax, and turn on abbreviations
(setq local-abbrev-table idlwave-mode-abbrev-table)
(set-syntax-table idlwave-mode-syntax-table)
@@ -1317,7 +1312,7 @@ output to complete and the next prompt to arrive before
returning
\(useful if you need an answer now\). IDL is considered ready if the
prompt is present and if `idlwave-shell-ready' is non-nil.
-If SHOW-IF-ERROR is non-nil, show the output it it contains an error
+If SHOW-IF-ERROR is non-nil, show the output if it contains an error
message, independent of what HIDE is set to."
; (setq hide nil) ; FIXME: turn this on for debugging only
@@ -1610,10 +1605,10 @@ and then calls `idlwave-shell-send-command' for any
pending commands."
;;; Test/Debug code
- ;(with-current-buffer
- ; (get-buffer-create "*idlwave-shell-output*")
- ; (goto-char (point-max))
- ; (insert "\nReceived STRING\n===>\n" string "\n<====\n"))
+;; (with-current-buffer
+;; (get-buffer-create "*idlwave-shell-output*")
+;; (goto-char (point-max))
+;; (insert "\nReceived STRING\n===>\n" string "\n<====\n"))
;; Check for prompt in current accumulating output
(when (setq idlwave-shell-ready
@@ -1640,6 +1635,11 @@ and then calls `idlwave-shell-send-command' for any
pending commands."
(point))
comint-last-input-end))))
+ ;; (with-current-buffer
+ ;; (get-buffer-create "*idlwave-shell-output*")
+ ;; (insert "\nFull output registered:\n===>\n"
+ ;; idlwave-shell-command-output "\n<====\n"))
+
;; Scan for state and do post commands - bracket
;; them with idlwave-shell-ready=nil since they may
;; call idlwave-shell-send-command themselves.
