Lines Matching +defs:comint +defs:last +defs:input +defs:start
96 (require 'comint)
128 This variable is used to initialize `comint-prompt-regexp' in the
141 ;; (defcustom idlwave-shell-automatic-start...) See idlwave.el
181 ;; FIXME: add comint-input-ring-size?
302 `comint-input-ring-size'.
361 (defcustom idlwave-shell-comint-settings
362 '((comint-scroll-to-bottom-on-input . t)
363 (comint-scroll-to-bottom-on-output . t)
364 (comint-scroll-show-maximum-output . nil)
365 (comint-prompt-read-only . t))
367 "Alist of special settings for the comint variables in the IDLWAVE Shell.
381 (defcustom idlwave-shell-use-input-mode-magic nil
382 "*Non-nil means, IDLWAVE should check for input mode spells in output.
384 by the regular expressions in `idlwave-shell-input-mode-spells'.
385 When these expressions match, IDLWAVE switches to character input mode and
386 back, respectively. See `idlwave-shell-input-mode-spells' for details."
390 (defcustom idlwave-shell-input-mode-spells
392 "The three regular expressions which match the magic spells for input modes.
399 single-character input mode. This is the same mode which can be entered
401 This input mode exits when the third regexp matches in the output,
404 The variable `idlwave-shell-use-input-mode-magic' must be non-nil to enable
594 (defvar comint-last-input-start)
595 (defvar comint-last-input-end)
663 (defvar idlwave-shell-last-save-and-action-file nil
664 "The last file which was compiled with `idlwave-shell-save-and-...'.")
678 "The overlay for the last IDL output.")
762 "Accumulate last line of output.")
876 (defvar idlwave-shell-error-last)
895 editing are available via the comint-mode key bindings, by default
951 Turning on `idlwave-shell-mode' runs `comint-mode-hook' and
974 ;; comint
975 (setq comint-prompt-regexp idlwave-shell-prompt-pattern)
976 (setq comint-process-echoes t)
979 (setq comint-input-autoexpand nil)
980 ; (setq comint-input-ring-size 64)
981 (make-local-variable 'comint-completion-addsuffix)
983 (setq comint-completion-addsuffix '("/" . ""))
984 (setq comint-input-ignoredups t)
1023 ;; Make sure comint-last-input-end does not go to beginning of
1025 (set-marker comint-last-input-end (point))
1044 ;; Set the optional comint variables
1045 (when idlwave-shell-comint-settings
1046 (let ((list idlwave-shell-comint-settings) entry)
1051 (unless (memq 'comint-carriage-motion
1052 (default-value 'comint-output-filter-functions))
1054 (add-hook 'comint-output-filter-functions
1061 (goto-char comint-last-output-start)
1065 (add-hook 'comint-output-filter-functions 'comint-strip-ctrl-m nil 'local))
1070 (remove-hook 'comint-output-filter-functions 'py-pdbtrack-track-stack-file)
1076 (set (make-local-variable 'comment-start) ";")
1086 (set (make-local-variable 'comint-input-ring-file-name)
1089 (comint-read-input-ring)))
1193 If buffer exists but shell process is not running, start new IDL.
1204 input and controlling the IDL job. See help on `idlwave-shell-mode'.
1219 ;; A non-nil arg means, we want a dedicated frame. This will last
1225 (unless (comint-check-proc (idlwave-shell-buffer))
1227 (buf (apply 'make-comint
1325 (if (not idlwave-shell-automatic-start)
1328 "You need to first start an IDL shell with \\[idlwave-shell]"))
1376 (set-marker comint-last-input-start (point))
1377 (set-marker comint-last-input-end (point))
1378 (comint-simple-send proc cmd)
1398 (comint-send-string proc (char-to-string c)))))
1401 (defun idlwave-shell-input-mode-magic (string)
1402 "Check STRING for magic words and toggle character input mode.
1403 See also the variable `idlwave-shell-input-mode-spells'."
1405 ((string-match (car idlwave-shell-input-mode-spells) string)
1408 (string-match (nth 2 idlwave-shell-input-mode-spells) string))
1410 ((string-match (nth 1 idlwave-shell-input-mode-spells) string)
1411 ;; Set a timer which will soon start the character loop
1412 (if (fboundp 'start-itimer)
1413 (start-itimer "IDLWAVE Char Mode" 'idlwave-shell-char-mode-loop 0.5
1421 and intercepts all input events to Emacs. You can use this command
1427 ;; First check if there is a shell waiting for input
1435 (funcall errf "No IDL program seems to be waiting for input"))
1437 ;; OK, start the loop
1442 ;; Wait for input
1451 ;; Interpret input as a character - ignore non-char input
1463 (comint-send-string proc (char-to-string c))))
1468 "When in last line of process buffer, do `comint-previous-input'.
1477 (comint-previous-input arg)
1481 "When in last line of process buffer, move to previous input.
1487 "When in last line of process buffer, move to next input.
1492 ;; Newer versions of comint.el changed the name of comint-filter to
1493 ;; comint-output-filter.
1494 (defun idlwave-shell-comint-filter (process string) nil)
1495 (if (fboundp 'comint-output-filter)
1496 (fset 'idlwave-shell-comint-filter (symbol-function 'comint-output-filter))
1497 (fset 'idlwave-shell-comint-filter (symbol-function 'comint-filter)))
1543 (idlwave-shell-comint-filter proc string))
1548 (if idlwave-shell-use-input-mode-magic
1549 (idlwave-shell-input-mode-magic
1589 comint-last-input-end))))
1600 (idlwave-shell-comint-filter proc full-output)
1608 (idlwave-shell-comint-filter
1644 (comint-write-input-ring)
1691 "\\<[a-zA-Z][a-zA-Z0-9_$:]*" ; start with a letter followed by [..]
1715 "Scan for state info. Looks for messages in output from last IDL
1739 (setq idlwave-shell-error-last (point)))
1827 ;without this last part - thus the function only breaks if file name
1862 The last line of STRING may be garbage - we check which one makes a valid
1864 (let ((file1 "") (file2 "") (start 0))
1869 (while (string-match "[ \t]*\n[ \t]*" file start)
1870 (setq file1 (concat file1 (substring file start (match-beginning 0)))
1871 start (match-end 0)))
1872 (setq file2 (concat file1 (substring file start)))
1989 (start 0)
1991 (while (string-match "^PATH:[ \t]*<\\(.*\\)>[ \t]*\n" path-string start)
1993 (setq start (match-end 0)))
2003 (start 0)
2029 (while (string-match "^IDLWAVE-\\(PRO\\|FUN\\): \\(.*\\)" text start)
2030 (setq start (match-end 0))
2119 (let ((bos (save-excursion (idlwave-start-of-substatement 'pre) (point)))
2219 (let ((comint-file-name-chars idlwave-shell-file-name-chars))
2220 (comint-dynamic-complete-as-filename)))
2567 "Run .GO. This starts the main program of the last compiled file."
2774 Runs to the last statement and then steps 1 statement. Use the .out command."
3060 ;; Just take the last bit between the prompts (if more than one).
3099 (set-window-start win (point-min)) ; Ensure the point is visible.
3156 (start 0)
3157 var fetch-start fetch-end pre post)
3166 "\\(\\`\\|[^a-zA-Z0-9$_][ \t]*\\)\\([a-zA-Z][a-zA-Z0-9$_]*\\)\\([ \t]*[^a-zA-Z0-9$_]\\|\\'\\)" expr start)
3168 start (match-end 2)
3185 (setq start (+ start (match-end 0))))
3190 (put-text-property start (- start (length var)) 'fetch t expr))))
3192 (setq start 0)
3193 (while (setq fetch-start
3194 (next-single-property-change start 'fetch expr))
3195 (if (get-text-property start 'fetch expr) ; it's on in range
3196 (setq fetch-end fetch-start ;it's off in range
3197 fetch-start start)
3198 (setq fetch-end (next-single-property-change fetch-start 'fetch expr)))
3200 (remove-text-properties fetch-start fetch-end '(fetch) expr)
3201 (setq expr (concat (substring expr 0 fetch-start)
3203 (substring expr fetch-start fetch-end)
3206 (setq start fetch-end))
3313 (set (make-local-variable 'comment-start-skip) ";+[ \t]*")
3314 (set (make-local-variable 'comment-start) ";")
3881 (ring-ref comint-input-ring 0)))
3887 When called from the shell buffer, re-run the file which was last handled by
3895 When called from the shell buffer, re-compile the file which was last handled by
3903 When called from the shell buffer, re-batch the file which was last handled by
3911 When called from the shell buffer, re-compile the file which was last
3924 (setq idlwave-shell-last-save-and-action-file (buffer-file-name)))
3925 (idlwave-shell-last-save-and-action-file
3927 idlwave-shell-last-save-and-action-file))
3931 (t (setq idlwave-shell-last-save-and-action-file
3933 (if (file-regular-p idlwave-shell-last-save-and-action-file)
3941 idlwave-shell-last-save-and-action-file
3944 ,idlwave-shell-last-save-and-action-file)
3948 idlwave-shell-last-save-and-action-file)))
3949 (setq idlwave-shell-last-save-and-action-file nil)
4075 (defvar idlwave-shell-error-last 0
4076 "Position of last syntax error in `idlwave-shell-error-buffer'.")
4084 (goto-char idlwave-shell-error-last)
4104 (setq idlwave-shell-error-last (point)))
4123 (defvar idlwave-shell-mode-map (copy-keymap comint-mode-map)
4136 ;(define-key idlwave-shell-mode-map "\M-?" 'comint-dynamic-list-completions)
4137 ;(define-key idlwave-shell-mode-map "\t" 'comint-dynamic-complete)
4139 (define-key idlwave-shell-mode-map "\C-w" 'comint-kill-region)
4407 idlwave-shell-last-save-and-action-file)]
4410 idlwave-shell-last-save-and-action-file)]
4413 idlwave-shell-last-save-and-action-file)]
4479 (get 'idlwave-shell-show-commands 'last-val))
4480 (put 'idlwave-shell-show-commands 'last-val nil))
4481 (put 'idlwave-shell-show-commands 'last-val
4492 (get 'idlwave-shell-show-commands 'last-val)))
4498 (get 'idlwave-shell-show-commands 'last-val)))
4504 (get 'idlwave-shell-show-commands 'last-val)))
4510 (get 'idlwave-shell-show-commands 'last-val)))
4517 (setq idlwave-shell-use-input-mode-magic
4518 (not idlwave-shell-use-input-mode-magic))
4519 :style toggle :selected idlwave-shell-use-input-mode-magic])