Lines Matching +defs:old +defs:mark
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.
128 ;; comint-get-old-input function Hooks for specific
351 (defvar comint-get-old-input (function comint-get-old-input-default)
352 "Function that returns old text in Comint mode.
353 This function is called when return is typed while the point is in old
355 default is `comint-get-old-input-default', which either grabs the
384 `comint-last-output-start' and the buffer's `process-mark', if other filter
421 ;; Autoload is necessary for Custom to recognize old alias.
457 (define-key map "\C-c\C-a" 'comint-bol-or-process-mark)
463 (define-key map "\C-c\C-m" 'comint-copy-old-input)
507 '("Copy Old Input" . comint-copy-old-input))
592 and `comint-get-old-input' to appropriate functions, and the variable
639 (make-local-variable 'comint-get-old-input)
721 Blasts any old process running in the buffer. Doesn't set the buffer mode.
725 (let ((proc (get-buffer-process buffer))) ; Blast any old process.
735 ;; Jump to the end, and set the process mark.
737 (set-marker (process-mark proc) (point))
830 ;; First delete any old unsent input at the end
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."
1119 (process-mark (get-buffer-process (current-buffer))))
1136 (funcall comint-get-old-input)))
1162 (process-mark (get-buffer-process (current-buffer))))
1292 (let ((old (buffer-substring (match-beginning 1) (match-end 1)))
1298 (if (not (search-forward old pos t))
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
1461 value of variable `comint-get-old-input' to retrieve old input, copies
1462 it to the process mark, and sends it.
1482 The values of `comint-get-old-input', `comint-input-filter-functions', and
1487 `comint-get-old-input' is the default:
1500 `comint-get-old-input' snarfs the sexp ending at point.
1511 (let* ((pmark (process-mark proc))
1515 (let ((copy (funcall comint-get-old-input)))
1554 ;; Give old user input a field property of `input', to
1579 (set-marker (process-mark proc) (point))
1721 ;; process mark is outside of the restriction
1725 (goto-char (process-mark process))
1746 (let ((old-point (- (point) (length string))))
1748 (set-marker comint-last-output-start old-point)
1753 (set-marker comint-last-input-end old-point))
1763 old-point
1764 (if (= end (point)) old-point end)))))
1769 (min (overlay-start over) old-point)
1770 old-point))))
1772 ;; Advance process-mark
1773 (set-marker (process-mark process) (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))
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)))))
1920 (defun comint-get-old-input-default ()
1921 "Default for `comint-get-old-input'.
1934 (defun comint-copy-old-input ()
1935 "Insert after prompt old input at point as new input to be edited.
1936 Calls `comint-get-old-input' to get old input."
1938 (let ((input (funcall comint-get-old-input))
1942 (goto-char (process-mark process))
1954 (let ((pmark (process-mark (get-buffer-process (current-buffer)))))
2077 (let ((pmark (progn (goto-char (process-mark proc))
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)
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)))))
2206 (let ((pmark (process-mark (get-buffer-process (current-buffer)))))
2215 (if (and (eobp) proc (= (point) (marker-position (process-mark proc))))
2525 (let ((old-buffer (current-buffer)))
2528 (set-buffer old-buffer)))))
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)
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")))
3110 ;; sees the stop regexp, it restores the old filter functions, and runs
3393 ;; Save the old filter
3468 ;; still use the old shell mode. Here's a guide to conversion.
3501 ;; the old shell package was used to implement a history mechanism,
3512 ;; get-old-input) that need to be different from the defaults. Call