Lines Matching +defs:comint +defs:get +defs:old +defs:input
96 (require 'comint)
110 ;; We have the old or no custom-library, hack around it!
128 This variable is used to initialize `comint-prompt-regexp' in the
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)
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)
1020 'idlwave-shell-get-object-class)
1023 ;; Make sure comint-last-input-end does not go to beginning of
1025 (set-marker comint-last-input-end (point))
1029 (idlwave-shell-update-bp-overlays) ; Throw away old overlays
1030 (setq idlwave-shell-post-command-hook nil ;clean up any old stuff
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
1057 (let ((pmark (process-mark (get-buffer-process
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)
1086 (set (make-local-variable 'comint-input-ring-file-name)
1089 (comint-read-input-ring)))
1104 'idlwave-shell-get-path-info
1108 (defun idlwave-shell-get-path-info (&optional no-write)
1113 (old-path-alist idlwave-path-alist)
1114 (old-sys-dir idlwave-system-directory)
1119 (not (string= idlwave-system-directory old-sys-dir)))
1124 (let ((old-entry (assoc x old-path-alist)))
1125 (if old-entry
1126 (cons x (cdr old-entry))
1129 (if (setq path-changed (not (equal idlwave-path-alist old-path-alist)))
1138 (setq idlwave-path-alist old-path-alist))))
1204 input and controlling the IDL job. See help on `idlwave-shell-mode'.
1225 (unless (comint-check-proc (idlwave-shell-buffer))
1227 (buf (apply 'make-comint
1233 (process (get-buffer-process buf)))
1258 (get 'idlwave-path-alist 'from-shell))
1323 (if (or (not (setq buf (get-buffer (idlwave-shell-buffer))))
1324 (not (setq proc (get-buffer-process buf))))
1330 (setq buf (get-buffer (idlwave-shell-buffer)))
1331 (if (or (not (setq buf (get-buffer (idlwave-shell-buffer))))
1332 (not (setq proc (get-buffer-process buf))))
1376 (set-marker comint-last-input-start (point))
1377 (set-marker comint-last-input-end (point))
1378 (comint-simple-send proc cmd)
1393 (if (or (not (setq buf (get-buffer (idlwave-shell-buffer))))
1394 (not (setq proc (get-buffer-process buf))))
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)
1421 and intercepts all input events to Emacs. You can use this command
1427 ;; First check if there is a shell waiting for input
1431 (if (or (not (setq buf (get-buffer (idlwave-shell-buffer))))
1432 (not (setq proc (get-buffer-process buf))))
1435 (funcall errf "No IDL program seems to be waiting for input"))
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'.
1471 (process-mark (get-buffer-process (current-buffer)))))
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)))
1540 (get-buffer-create idlwave-shell-hidden-output-buffer))
1543 (idlwave-shell-comint-filter proc string))
1548 (if idlwave-shell-use-input-mode-magic
1549 (idlwave-shell-input-mode-magic
1562 ; (get-buffer-create "*idlwave-shell-output*")
1589 comint-last-input-end))))
1600 (idlwave-shell-comint-filter proc full-output)
1608 (idlwave-shell-comint-filter
1635 (win (get-buffer-window buf)))
1636 (when (get-buffer buf)
1644 (comint-write-input-ring)
1657 (if (get-buffer buf)
1735 (get-buffer-create idlwave-shell-error-buffer)
1791 (let ((cmd (idlwave-shell-bp-get bp 'cmd)))
1895 (idlwave-shell-update-bp-overlays) ; kill old overlays
1900 (and (get-buffer (idlwave-shell-buffer))
1901 (bury-buffer (get-buffer (idlwave-shell-buffer))))
1906 (if (setq buf (get-buffer buf))
1938 Also get rid of widget events in the queue."
2116 (defvar idlwave-shell-get-object-class nil)
2117 (defun idlwave-shell-get-object-class (apos)
2134 (setq idlwave-shell-get-object-class nil)
2141 (if (and idlwave-shell-get-object-class
2142 (not (assoc-string idlwave-shell-get-object-class
2145 idlwave-shell-get-object-class)))
2153 (setq idlwave-shell-get-object-class
2219 (let ((comint-file-name-chars idlwave-shell-file-name-chars))
2220 (comint-dynamic-complete-as-filename)))
2367 ;; remove stop-line overlay from old position
2526 (idlwave-shell-bp-get bp 'file) "?")))
2532 (concat ".run \"" (idlwave-shell-bp-get bp 'file) "\"") nil
2593 (let ((index (idlwave-shell-bp-get bp)))
2604 (if (eq (current-buffer) (get-buffer (idlwave-shell-buffer)))
2618 (if (eq (current-buffer) (get-buffer (idlwave-shell-buffer)))
2648 (disabled (idlwave-shell-bp-get bp 'disabled)))
2656 (int-to-string (idlwave-shell-bp-get bp)))
2665 (setq disabled (idlwave-shell-bp-get (car bpl) 'disabled))
2723 (or (idlwave-get-buffer-visiting source-file)
2916 (let* ((process (get-buffer-process (current-buffer)))
3051 (set-buffer (get-buffer-create "*Examine*"))
3088 (let* ((winlist (get-buffer-window-list "*Examine*" nil 'visible)))
3137 (let ((buf (get-buffer "*Examine*")))
3195 (if (get-text-property start 'fetch expr) ; it's on in range
3207 (if (get-text-property 0 'fetch expr) ; Full expression, left over
3233 (let* ((buffer (get-buffer (idlwave-shell-buffer)))
3234 (process (get-buffer-process buffer))
3346 (let ((buf (idlwave-get-buffer-visiting
3393 (defun idlwave-shell-bp-get (bp &optional item)
3426 (set-buffer (get-buffer-create idlwave-shell-bp-buffer))
3430 (let ((old-bp-alist idlwave-shell-bp-alist)
3481 (mapcar 'idlwave-shell-update-bp old-bp-alist)
3482 (mapcar 'idlwave-shell-update-bp-command-only old-bp-alist))))
3513 (defvar idlwave-shell-old-bp nil
3521 ((bp-file (idlwave-shell-bp-get bp 'file))
3522 (bp-module (idlwave-shell-bp-get bp 'module))
3538 ;; Get and save the old breakpoints
3543 (setq idlwave-shell-old-bp idlwave-shell-bp-alist))
3547 (idlwave-shell-module-source-query (idlwave-shell-bp-get bp 'module)
3548 (idlwave-shell-bp-get bp 'type))
3550 ((count (idlwave-shell-bp-get bp 'count))
3551 (condition (idlwave-shell-bp-get bp 'condition))
3552 (disabled (idlwave-shell-bp-get bp 'disabled))
3565 (line (idlwave-shell-bp-get bp 'line)))
3616 (let ((obp-index (mapcar 'idlwave-shell-bp-get idlwave-shell-old-bp))
3618 (while (and (member (idlwave-shell-bp-get (car bpl)) obp-index)
3627 (equal (idlwave-shell-bp-get (setq bpl (car bpl)) 'file)
3628 (idlwave-shell-bp-get bp 'file)))
3632 (idlwave-shell-set-bp-data bpl (idlwave-shell-bp-get bp 'data))
3653 ov ov-list bp buf old-buffers win)
3655 ;; Delete the old overlays from their buffers
3659 (add-to-list 'old-buffers (overlay-buffer ov))
3672 (condition (idlwave-shell-bp-get bp 'condition))
3673 (count (idlwave-shell-bp-get bp 'count))
3674 (disabled (idlwave-shell-bp-get bp 'disabled))
3697 (int-to-string (idlwave-shell-bp-get bp))
3722 (if old-buffers
3723 (setq old-buffers (delq (current-buffer) old-buffers)))
3728 (let ((window (get-buffer-window (current-buffer) 0)))
3733 (while (setq buf (pop old-buffers))
3738 (let ((window (get-buffer-window buf 0)))
3820 (setq index (int-to-string (idlwave-shell-bp-get bp))
3821 condition (idlwave-shell-bp-get bp 'condition)
3822 cmd (idlwave-shell-bp-get bp 'cmd)
3823 count (idlwave-shell-bp-get bp 'count)
3824 disabled (idlwave-shell-bp-get bp 'disabled))
3881 (ring-ref comint-input-ring 0)))
3926 (if (setq buf (idlwave-get-buffer-visiting
3982 (let ((old (assoc (upcase module) idlwave-shell-sources-alist))
3988 (if old
3989 (setcdr old (list (idlwave-shell-file-name filename) filename))
4010 (set-buffer (get-buffer-create idlwave-shell-bp-buffer))
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)
4389 (window (get-buffer-window "*IDLWAVE Electric Debug Help*"))
4479 (get '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])
4524 'idlwave-shell-get-path-info