Lines Matching defs:point
72 ;; C-c C-a comint-bol-or-process-mark First time, move point to bol;
86 ;; comint-dynamic-complete-filename Complete filename at point.
88 ;; comint-replace-by-expanded-filename Expand and complete filename at point;
90 ;; comint-replace-by-expanded-history Expand history at point;
101 ;; comint-goto-process-mark Move point to where process-mark is.
102 ;; comint-set-process-mark Set process-mark to point.
137 ;; comint-move-point-for-output symbol ...
270 (defcustom comint-move-point-for-output nil
271 "*Controls whether interpreter output moves point to the end of the output.
272 If nil, then output never moves point to the output.
273 (If the output occurs at point, it is inserted before point.)
274 If t or `all', move point in all windows showing the buffer.
275 If `this', move point only the selected window.
276 If `others', move point only in other windows, not in the selected window.
290 (defvaralias 'comint-scroll-to-bottom-on-output 'comint-move-point-for-output)
294 This variable applies when point is at the end of the buffer
296 `comint-move-point-for-output' said to move it there)
300 and point is on the last line. A value of nil
303 See also the variable `comint-move-point-for-output' and the function
353 This function is called when return is typed while the point is in old
575 (put 'comint-move-point-for-output 'permanent-local t)
609 and `comint-move-point-for-output'.
618 (set (make-local-variable 'comint-last-input-start) (point-min-marker))
619 (set (make-local-variable 'comint-last-input-end) (point-min-marker))
644 (make-local-variable 'comint-move-point-for-output)
647 ;; This makes it really work to keep point at the bottom.
736 (goto-char (point-max))
737 (set-marker (process-mark proc) (point))
746 (goto-char (point-max))
748 (setq startfile (buffer-substring (point) (point-max)))
749 (delete-region (point) (point-max))
808 "In a Comint buffer, set the current input to the previous input at point.
809 If there is no previous input at point, run the command specified
810 by the global keymap (usually `mouse-yank-at-point')."
812 (let ((pos (posn-point (event-end event)))
829 (goto-char (point-max))
834 (point))
835 ;; Insert the input at point
853 ;; comint-replace-by-expanded-history Expand history at point;
860 ;; comint-replace-by-expanded-history-before-point Workhorse function.
900 (goto-char (point-max))
907 (setq start (point-min)))
956 "Choose the input history entry that point is in or next to."
960 (if (and (not (eobp)) (get-text-property (point) 'mouse-face))
961 (setq end (point) beg (1+ (point))))
962 (if (and (not (bobp)) (get-text-property (1- (point)) 'mouse-face))
963 (setq end (1- (point)) beg (point)))
967 (setq end (or (next-single-property-change end 'mouse-face) (point-max)))
1115 "Delete all input between accumulation or process mark and point."
1120 (point-max)))
1163 (point))
1179 "Expand input command history references before point.
1196 See `comint-magic-space' and `comint-replace-by-expanded-history-before-point'.
1208 (and (null (get-char-property (point) 'field))
1212 (comint-replace-by-expanded-history-before-point silent start)
1216 (defun comint-replace-by-expanded-history-before-point (silent &optional start)
1217 "Expand directory stack reference before point.
1224 (let ((toend (- (line-end-position) (point)))
1229 (< (point) (- (line-end-position) toend)))
1238 (comint-within-quotes start (point)))
1240 (goto-char (1+ (point))))
1296 (setq pos (point))
1308 "Expand input history references before point and insert ARG spaces.
1460 point as input to the process. Before the process output mark, calls
1473 If variable `comint-eol-on-send' is non-nil, then point is moved to the
1489 either return the current input field, if point is on an input
1490 field, or the current line, if point is on an output field.
1500 `comint-get-old-input' snarfs the sexp ending at point.
1512 (intxt (if (>= (point) (marker-position pmark))
1514 (buffer-substring pmark (point)))
1524 (buffer-substring pmark (point))))
1531 (let ((copy (buffer-substring pmark (point)))
1532 (start (point)))
1547 (end (if no-newline (point) (1- (point))))
1578 (set-marker comint-last-input-end (point))
1579 (set-marker (process-mark proc) (point))
1592 (point-max))
1596 (- (point-max) echo-len)
1599 ;; (- (point-max) comint-last-input-end))
1600 nil comint-last-input-end (point-max)))))
1603 (point-max))
1686 (delete-region (point) (line-beginning-position)))
1714 ;; fiddle with the point
1715 (saved-point (point-marker)))
1717 ;; The point should float after any insertion we do
1718 (set-marker-insertion-type saved-point t)
1726 (set-marker comint-last-output-start (point))
1730 ;; It is used here to force window-point markers (used to
1731 ;; store the value of point in non-selected windows) to
1740 ;; window-point markers settable (via a buffer-local
1742 ;; to `t', to cause point in non-select windows to advance.
1746 (let ((old-point (- (point) (length string))))
1748 (set-marker comint-last-output-start old-point)
1752 (point)))
1753 (set-marker comint-last-input-end old-point))
1756 ;; is at the current point was incorrectly advanced by
1758 ;; start at point:
1759 (dolist (over (overlays-at (point)))
1760 (when (= (overlay-start over) (point))
1763 old-point
1764 (if (= end (point)) old-point end)))))
1765 ;; Then do overlays that might end at point:
1766 (dolist (over (overlays-at (1- (point))))
1767 (when (= (overlay-end over) (point))
1769 (min (overlay-start over) old-point)
1770 old-point))))
1773 (set-marker (process-mark process) (point))
1777 (comint-carriage-motion comint-last-output-start (point)))
1779 ;; Run these hooks with point where the user had it.
1780 (goto-char saved-point)
1782 (set-marker saved-point (point))
1789 (add-text-properties comint-last-output-start (point)
1796 (let ((prompt-start (save-excursion (forward-line 0) (point)))
1800 (or (= (point-min) prompt-start)
1805 prompt-start (point)
1814 prompt-start (point))
1817 (make-overlay prompt-start (point)))
1821 (goto-char saved-point)))))))
1825 Movement occurs if point in the selected window is not after the process mark,
1838 (if (and process (< (point) (process-mark process)))
1840 (goto-char (point-max))
1847 (goto-char (point-max))
1854 Depends on the value of `comint-move-point-for-output' and
1861 (scroll comint-move-point-for-output))
1869 (if (and (< (point) (process-mark process))
1871 ;; Maybe user wants point to jump to end.
1874 ;; If point was at the end, keep it at end.
1876 (>= (point) comint-last-output-start))))
1881 (= (point) (point-max)))
1883 (goto-char (point-max))
1898 (delete-region (point-min) (point)))))
1917 (goto-char (point-max))
1923 return the current input field, if point is on an input field, or the
1924 current line, if point is on an output field.
1932 (buffer-substring-no-properties (point) (line-end-position)))))
1935 "Insert after prompt old input at point as new input to be edited.
1953 "Return t if point is after the process output marker."
1955 (<= (marker-position pmark) (point))))
1977 (point))
1980 ;; return the position of the end of a prompt, even if the point is
2079 (point-marker))))
2083 (buffer-substring pmark (point))))
2084 (delete-region pmark (point))))
2114 (write-region comint-last-input-end (point) filename
2127 Sets mark to the value of point when this command is run."
2130 (let ((pos (or (marker-position comint-last-input-end) (point-max))))
2134 (set-window-start (selected-window) (point))
2138 (pt (if (= (point-min) beg)
2139 (point-min)
2142 (set-window-start (selected-window) (point))))))
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.
2191 "Skip all pending input, from last stuff output by interpreter to point.
2197 (let ((pos (point))
2201 (set-marker marker (point)))))
2204 "Kill all text from last stuff output by interpreter to point."
2207 (if (> (point) (marker-position pmark))
2208 (kill-region pmark (point)))))
2212 Sends an EOF only if point is at the end of the buffer and there is no input."
2215 (if (and (eobp) proc (= (point) (marker-position (process-mark proc))))
2239 (point)))))
2252 (when (eq (get-char-property (point) 'field) 'input)
2282 (let ((pos (point))
2296 (setq input-pos (point-max)))
2323 "Insert the INDEXth argument from the previous Comint command-line at point.
2336 (delete-region comint-insert-previous-argument-last-start-pos (point))
2347 (if (<= (point) (comint-line-beginning-position))
2352 (set-marker comint-insert-previous-argument-last-start-pos (point))
2370 "Update read-only status of newline before point.
2378 This function does nothing if point is not at the beginning of a
2380 Otherwise, if the character after point has a front-sticky
2383 If the character after point does not have a front-sticky
2386 (let* ((pt (point)) (lst (get-text-property pt 'front-sticky))
2531 "Return string around point, or nil."
2538 (1- (point))))
2615 (let ((opoint (window-point proc-win)))
2616 (set-window-point proc-win proc-mark)
2620 (set-window-point proc-win opoint)))))))
2630 ;; history at point.
2631 ;; comint-dynamic-complete-filename Complete filename at point.
2633 ;; comint-replace-by-expanded-filename Expand and complete filename at point;
2710 "Return the word of WORD-CHARS at point, or nil if none is found.
2714 (let ((here (point))
2717 (let ((startpoint (point)))
2721 (if (and (> (- (point) 2) (point-min))
2722 (= (char-after (- (point) 2)) ?\\))
2724 (if (and (> (- (point) 1) (point-min))
2725 (>= (char-after (- (point) 1)) 128))
2727 (if (= (point) startpoint)
2730 (when (< (point) here)
2731 (set-match-data (list (point) here))
2753 "Return the filename at point, or nil if none is found.
2788 "Dynamically perform completion at point.
2790 completion until a function returns non-nil, at which point completion is
2797 "Dynamically complete the filename at point.
2817 "Dynamically complete at point as a filename.
2881 "Dynamically expand and complete the filename at point.
2897 This function inserts completion characters at point by completing STUB from
2946 "List in help buffer possible completions of the filename at point."
2994 (if (pos-visible-in-window-p (point-max) window)
2995 (set-window-start window (point-min))
3049 (set-marker comint-accum-marker (point))
3055 "Move point to the process mark.
3066 "Move point to beginning of line (after prompt) or to the process mark.
3069 it moves point to the process mark.
3082 "Set the process mark at point."
3086 (set-marker (process-mark proc) (point))
3317 (goto-char (point-max))
3373 (goto-char (point-max))
3442 (goto-char (point-min))