Lines Matching +defs:mark +defs:marker
72 ;; C-c C-a comint-bol-or-process-mark First time, move point to bol;
73 ;; second time, move to process-mark.
101 ;; comint-goto-process-mark Move point to where process-mark is.
102 ;; comint-set-process-mark Set process-mark to point.
116 ;; comint-last-input-start marker Handy if inferior always echoes
117 ;; comint-last-input-end marker For comint-delete-output command
139 ;; comint-accum-marker maker For comint-accumulate
384 `comint-last-output-start' and the buffer's `process-mark', if other filter
457 (define-key map "\C-c\C-a" 'comint-bol-or-process-mark)
559 (defvar comint-accum-marker nil
618 (set (make-local-variable 'comint-last-input-start) (point-min-marker))
619 (set (make-local-variable 'comint-last-input-end) (point-min-marker))
620 (set (make-local-variable 'comint-last-output-start) (make-marker))
655 (make-local-variable 'comint-accum-marker)
656 (setq comint-accum-marker (make-marker))
735 ;; Jump to the end, and set the process mark.
737 (set-marker (process-mark proc) (point))
817 (if (or (null comint-accum-marker)
832 (or (marker-position comint-accum-marker)
833 (process-mark (get-buffer-process (current-buffer))))
1020 ;; First make sure there is a ring and that we are after the process mark
1115 "Delete all input between accumulation or process mark and point."
1118 (or (marker-position comint-accum-marker)
1119 (process-mark (get-buffer-process (current-buffer))))
1161 (or (marker-position comint-accum-marker)
1162 (process-mark (get-buffer-process (current-buffer))))
1459 After the process output mark, sends all text from the process mark to
1460 point as input to the process. Before the process output mark, calls
1462 it to the process mark, and sends it.
1511 (let* ((pmark (process-mark proc))
1512 (intxt (if (>= (point) (marker-position pmark))
1546 (let ((beg (marker-position pmark))
1577 (set-marker comint-last-input-start pmark)
1578 (set-marker comint-last-input-end (point))
1579 (set-marker (process-mark proc) (point))
1580 ;; clear the "accumulation" marker
1581 (set-marker comint-accum-marker nil)
1715 (saved-point (point-marker)))
1718 (set-marker-insertion-type saved-point t)
1721 ;; process mark is outside of the restriction
1725 (goto-char (process-mark process))
1726 (set-marker comint-last-output-start (point))
1733 ;; don't _want_ to advance, such as the start-marker of some
1748 (set-marker comint-last-output-start old-point)
1751 (equal (marker-position comint-last-input-end)
1753 (set-marker comint-last-input-end old-point))
1772 ;; Advance process-mark
1773 (set-marker (process-mark process) (point))
1782 (set-marker saved-point (point))
1784 (goto-char (process-mark process)) ; in case a filter moved it
1825 Movement occurs if point in the selected window is not after the process mark,
1838 (if (and process (< (point) (process-mark process)))
1869 (if (and (< (point) (process-mark process))
1875 (and (marker-position comint-last-output-start)
1877 (goto-char (process-mark process)))
1894 (goto-char (process-mark (get-buffer-process (current-buffer))))
1904 (let ((pmark (process-mark (get-buffer-process (current-buffer)))))
1942 (goto-char (process-mark process))
1953 "Return t if point is after the process output marker."
1954 (let ((pmark (process-mark (get-buffer-process (current-buffer)))))
1955 (<= (marker-position pmark) (point))))
2077 (let ((pmark (progn (goto-char (process-mark proc))
2079 (point-marker))))
2081 (goto-char (process-mark proc))
2112 (goto-char (process-mark (get-buffer-process (current-buffer))))
2127 Sets mark to the value of point when this command is run."
2129 (push-mark)
2130 (let ((pos (or (marker-position comint-last-input-end) (point-max))))
2148 between the process mark and point."
2158 between the process mark and point."
2166 between the process mark and point."
2174 between the process mark and point.
2192 This means mark it as if it had been sent as input, without sending it."
2198 (marker (process-mark (get-buffer-process (current-buffer)))))
2200 (if (= marker pos)
2201 (set-marker marker (point)))))
2206 (let ((pmark (process-mark (get-buffer-process (current-buffer)))))
2207 (if (> (point) (marker-position pmark))
2215 (if (and (eobp) proc (= (point) (marker-position (process-mark proc))))
2343 ;; First usage; initialize to a marker
2345 (make-marker)))))
2352 (set-marker comint-insert-previous-argument-last-start-pos (point))
2604 (proc-mark (process-mark proc)))
2608 (proc-pt (marker-position proc-mark)))
2616 (set-window-point proc-win proc-mark)
2619 (push-mark opoint)
3049 (set-marker comint-accum-marker (point))
3054 (defun comint-goto-process-mark ()
3055 "Move point to the process mark.
3056 The process mark separates output, and input already sent,
3061 (goto-char (process-mark proc))
3063 (message "Point is now at the process mark"))))
3065 (defun comint-bol-or-process-mark ()
3066 "Move point to beginning of line (after prompt) or to the process mark.
3069 it moves point to the process mark.
3071 The process mark separates the process output, along with input already sent,
3072 from input that has not yet been sent. Ordinarily, the process mark
3075 the process mark is at the beginning of the accumulated input."
3077 (if (not (eq last-command 'comint-bol-or-process-mark))
3079 (comint-goto-process-mark)))
3081 (defun comint-set-process-mark ()
3082 "Set the process mark at point."
3086 (set-marker (process-mark proc) (point))
3087 (message "Process mark set")))