Lines Matching +defs:process +defs:mark
1 ;; idlw-shell.el --- run IDL as an inferior process of Emacs.
35 ;; Runs IDL as an inferior process of Emacs, much like the Emacs
129 process buffer.
135 (defcustom idlwave-shell-process-name "idl"
136 "*Name to be associated with the IDL process. The buffer for the
137 process output is made by surrounding this name with `*'s."
287 This string is sent to the IDL process by `idlwave-shell-mode' which is
466 (defcustom idlwave-shell-mark-stop-line t
467 "*Non-nil means, mark the source code line where IDL is currently stopped.
468 Value decides about the method which is used to mark the line. Valid values
471 nil Do not mark the line
500 line where IDL is stopped. See also `idlwave-shell-mark-stop-line'."
523 (defcustom idlwave-shell-mark-breakpoints t
524 "*Non-nil means, mark breakpoints in the source files.
526 nil Do not mark breakpoints.
539 "Obsolete variable. See `idlwave-shell-mark-breakpoints.")
544 lines which have a breakpoint. See also `idlwave-shell-mark-breakpoints'."
562 lines which have a breakpoint. See also `idlwave-shell-mark-breakpoints'."
696 ((or (null idlwave-shell-mark-stop-line)
697 (eq idlwave-shell-mark-stop-line 'arrow))
701 ((eq idlwave-shell-mark-stop-line 'face)
751 "Hook run when the idl process exits.")
754 "If non-nil the process output is not inserted into the output
758 "If non-nil the process output is inserted into the output buffer if
776 "Name of buffer associated with IDL process.
777 The name of the buffer is made by surrounding `idlwave-shell-process-name
779 (concat "*" idlwave-shell-process-name "*"))
782 "If non-nil can send next command to IDL process.")
885 "Major mode for interacting with an inferior IDL process.
889 RET after the end of the process' output sends the text from the
890 end of process to the end of the current line. RET before end of
891 process output copies the current line (except for the prompt) to the
935 to correspond to the IDL process current directory.
976 (setq comint-process-echoes t)
996 mode-line-process
1057 (let ((pmark (process-mark (get-buffer-process
1193 If buffer exists but shell process is not running, start new IDL.
1194 If buffer exists and shell process is running, just switch to the buffer.
1224 ;; Check if the process still exists. If not, create it.
1228 idlwave-shell-process-name prg nil
1233 (process (get-buffer-process buf)))
1235 (set-process-filter process 'idlwave-shell-filter)
1236 (set-process-sentinel process 'idlwave-shell-sentinel)
1287 "Send a command to IDL process.
1291 CMD, in `idlwave-shell-pending-commands' is sent to the IDL process.
1322 ;; Get or make the buffer and its process
1324 (not (setq proc (get-buffer-process buf))))
1332 (not (setq proc (get-buffer-process buf))))
1349 (goto-char (process-mark proc))
1356 (goto-char (process-mark proc))))
1382 (when (not (accept-process-output proc 6)) ; long wait
1394 (not (setq proc (get-buffer-process buf))))
1432 (not (setq proc (get-buffer-process buf))))
1468 "When in last line of process buffer, do `comint-previous-input'.
1471 (process-mark (get-buffer-process (current-buffer)))))
1481 "When in last line of process buffer, move to previous input.
1487 "When in last line of process buffer, move to next input.
1494 (defun idlwave-shell-comint-filter (process string) nil)
1500 "Return t if the shell process is running."
1501 (eq (process-status idlwave-shell-process-name) 'run))
1525 ;; We no longer do the cleanup here - this is done by the process sentinel
1526 (if (eq (process-status idlwave-shell-process-name) 'run)
1527 ;; OK, process is still running, so we can use it.
1583 (with-current-buffer (process-buffer proc)
1586 (goto-char (process-mark proc))
1632 (defun idlwave-shell-sentinel (process event)
1633 "The sentinel function for the IDLWAVE shell process."
1640 (insert (format "\n\n Process %s %s" process event))
1718 at and trace messages. For breakpoint messages process any attached
1885 "Do necessary cleanup for a terminated IDL process."
1914 (message "Killing buffer *idl* and the associated process")))
1954 "Exit the idl process after confirmation.
2105 Change the default directory for the process buffer to concur."
2401 ;; enter the buffer and mark the line
2422 (if idlwave-shell-mark-stop-line
2822 (transient-mark-mode t)
2916 (let* ((process (get-buffer-process (current-buffer)))
2917 (process-mark (if process (process-mark process)))
2953 ;; Get expression, but first move the begin mark if a
2954 ;; process-mark is inside the region, to keep the overlay from
2957 (if (and process-mark (> process-mark beg) (< process-mark end))
2958 (setq beg (marker-position process-mark)))
3234 (process (get-buffer-process buffer))
3235 (process-mark (if process (process-mark process)))
3239 (goto-char process-mark)
3249 (if (and idlwave-shell-output-overlay process-mark)
3299 "Compile and run the region using the IDL process.
3307 If there is a prefix argument, display IDL process."
3332 "Send region to the IDL process.
3333 If there is a prefix argument, display IDL process.
3646 "Update the overlays which mark breakpoints in the source code.
3648 (when idlwave-shell-mark-breakpoints
3651 (use-glyph (and (memq idlwave-shell-mark-breakpoints '(t glyph))
3750 (use-glyph (and (memq idlwave-shell-mark-breakpoints '(t glyph))
3776 (idlwave-shell-mark-breakpoints
3805 (idlwave-shell-mark-breakpoints
4552 "The glyphs to mark breakpoint lines in the source code.")