Lines Matching +defs:end +defs:point
166 ;;; - Some new keybindings for term-char mode ( notably home/end/...)
178 ;;; (make-local-variable 'mouse-yank-at-point)
180 ;;; (setq mouse-yank-at-point t)
303 ;;; end
312 ;;; end
342 ;; The changelog is at the end of this file.
357 ;; instead of shell-mode, see the notes at the end of this file.
372 ;; c-d term-delchar-or-maybe-eof Delete char unless at end of buff.
385 ;; term-dynamic-complete Complete filename at point.
387 ;; term-replace-by-expanded-filename Expand and complete filename at point;
422 ;;; term-last-input-end - marker For term-kill-output command
466 (defvar term-scroll-end) ;; Number of line (zero-based) after scrolling region.
574 This function is called when return is typed while the point is in old text.
607 "*Non-nil means go to the end of the line before sending input.
647 (defvar term-last-input-end)
912 (define-key term-raw-map [end] 'term-send-end)
976 the end of the buffer. See variables `term-scroll-to-bottom-on-input',
1018 (make-local-variable 'term-last-input-end)
1019 (setq term-last-input-end (make-marker))
1080 (make-local-variable 'term-scroll-end)
1081 (setq term-scroll-end term-height)
1128 ;; matches part of the buffer before point.
1136 (let ((cur term-kill-echo-list) (found nil) (save-point (point)))
1139 (end-of-line)
1141 (let* ((str (car cur)) (len (length str)) (start (- (point) len)))
1142 (if (and (>= start (point-min))
1143 (string= str (buffer-substring start (point))))
1152 (goto-char save-point)))
1166 ;; (point) has been updated to (process-mark proc).
1212 (mouse-set-point click)
1219 "Insert the last stretch of killed text at point."
1233 (defun term-send-end () (interactive) (term-send-raw-string "\e[4~"))
1253 (when (> (point) pmark)
1258 (end-of-line)
1333 ;; Jump to the end, and set the process mark.
1334 (goto-char (point-max))
1335 (set-marker (process-mark proc) (point))
1346 (goto-char (point-max))
1348 (setq startfile (buffer-substring (point) (point-max)))
1349 (delete-region (point) (point-max))
1384 (omax (point-max))
1385 (opoint (point)))
1442 ;; We should suppress conversion of end-of-line format.
1472 ;;; term-replace-by-expanded-history Expand history at point;
1479 ;;; term-replace-by-expanded-history-before-point Workhorse function.
1515 (goto-char (point-max))
1520 (match-end 1))))
1624 ;; For a new search, start from beginning or end, as appropriate
1696 (process-mark (get-buffer-process (current-buffer))) (point))
1719 (point))
1735 "Expand input command history references before point.
1748 See `term-magic-space' and `term-replace-by-expanded-history-before-point'.
1759 (term-replace-by-expanded-history-before-point silent)
1763 (defun term-replace-by-expanded-history-before-point (silent)
1764 "Expand directory stack reference before point.
1767 (let ((toend (- (save-excursion (end-of-line nil) (point)) (point)))
1768 (start (progn (term-bol nil) (point))))
1772 (end-of-line nil) (- (point) toend)))
1773 (< (point)
1775 (end-of-line nil) (- (point) toend))))
1784 (term-within-quotes start (point)))
1786 (goto-char (1+ (point))))
1789 (goto-char (match-end 0))
1795 (match-end 1))))))
1800 (match-beginning 2) (match-end 2))
1804 (goto-char (match-end 0))
1810 (match-beginning 1) (match-end 1))
1817 (let* ((mb1 (match-beginning 1)) (me1 (match-end 1))
1818 (mb2 (match-beginning 2)) (me2 (match-end 2))
1826 (goto-char (match-end 0))
1833 (match-beginning 4) (match-end 4))
1838 (let ((old (buffer-substring (match-beginning 1) (match-end 1)))
1839 (new (buffer-substring (match-beginning 2) (match-end 2)))
1842 (setq pos (point))
1850 (goto-char (match-end 0))))))))
1854 "Expand input history references before point and insert ARG spaces.
1861 (defun term-within-quotes (beg end)
1864 (let ((countsq (term-how-many-region "\\(^\\|[^\\\\]\\)\'" beg end))
1865 (countdq (term-how-many-region "\\(^\\|[^\\\\]\\)\"" beg end)))
1868 (defun term-how-many-region (regexp beg end)
1874 (while (re-search-forward regexp end t)
1878 (defun term-args (string begin end)
1886 (if (eq (char-after begin) ?:) (1+ begin) begin) end))
1893 (string-to-number (substring range (match-end 0))))
1935 (setq pos (match-end 0)
1946 (setq pos (match-end 0))))
1965 point as input to the process. Before the process output mark, calls value
1979 If variable `term-eol-on-send' is non-nil, then point is moved to the
1980 end of line before sending the input.
1995 term-get-old-input snarfs the sexp ending at point.
2007 (input-is-new (>= (point) pmark-val))
2009 (progn (if term-eol-on-send (end-of-line))
2010 (buffer-substring pmark (point)))
2017 (buffer-substring pmark (point))))
2024 (let ((copy (buffer-substring pmark (point))))
2025 (delete-region pmark (point))
2048 (set-marker term-last-input-end (point))
2054 (set-marker (process-mark proc) (point)))
2065 (let ((beg (point)))
2066 (end-of-line)
2067 (buffer-substring beg (point)))))
2070 "Insert after prompt old input at point as new input to be edited.
2082 If this takes us past the end of the current line, don't skip at all."
2083 (let ((eol (save-excursion (end-of-line) (point))))
2085 (<= (match-end 0) eol))
2086 (goto-char (match-end 0)))))
2090 "Is point after the process output marker?"
2091 ;; Since output could come into the buffer after we looked at the point
2097 (<= proc-pos (point))))
2209 (defun term-send-region (proc start end)
2213 (term-send-string proc (buffer-substring start end)))
2223 (kill-region term-last-input-end pmark)
2226 (set-marker pmark (point))))
2230 Sets mark to the value of point when this command is run."
2232 (goto-char term-last-input-end)
2235 (set-window-start (selected-window) (point))
2236 (end-of-line))
2255 WARNING: if there is no current subjob, you can end up suspending
2269 "Kill all text from last stuff output by interpreter to point."
2273 (when (> (point) p-pos)
2274 (kill-region pmark (point)))))
2277 "Delete ARG characters forward, or send an EOF to process if at end of
2296 (pos (save-excursion (end-of-line (if (> arg 0) 0 1))
2298 (point)))))
2315 "Move to end of Nth next prompt in the buffer.
2319 (end-of-line (if (> n 0) 1 0))
2324 "Move to end of Nth previous prompt in the buffer.
2442 ;;; if there's a quote on both sides of point on the current line.
2444 "Return string around `point' that starts the current line or nil."
2446 (let* ((point (point))
2447 (bol (progn (beginning-of-line) (point)))
2448 (eol (progn (end-of-line) (point)))
2449 (start (progn (goto-char point)
2451 (1+ (point)))))
2452 (end (progn (goto-char point)
2454 (1- (point))))))
2455 (and start end
2456 (buffer-substring start end)))))
2516 (let ((opoint (window-point proc-win)))
2517 (set-window-point proc-win proc-mark) (sit-for 0)
2520 (set-window-point proc-win opoint)))))))
2543 (end-of-line)
2554 (end-of-line)) ;; and on to the end of the next line.
2556 (+ (- count todo) H -1) ;; Hit end of buffer.
2569 (backward-char)) ;; Move to end of previous line.
2578 ((let ((save-pos (point)))
2593 (let (point-at-eol)
2595 (end-of-line)
2596 (setq point-at-eol (point)))
2601 (when (> (point) point-at-eol)
2602 (put-text-property point-at-eol (point) 'face 'default))))
2606 (let ((old-point (point)))
2608 (put-text-property old-point (point) 'face 'default)))
2615 (narrow-to-region term-home-marker (point-max))
2640 (end (match-end 0))
2698 (let* ((i 0) char funny count save-point save-marker old-point temp win
2728 (when (/= (point) (process-mark proc))
2729 (setq save-point (point-marker))
2736 (when (and (> (point-max) (process-mark proc))
2738 (narrow-to-region (point-min) (process-mark proc)))
2786 (setq old-point (point))
2790 ;; following point if not eob nor insert-mode.
2797 (setq pos (point))
2799 (delete-region pos (point)))
2804 (setq pos (point))
2805 (end-of-line)
2807 (delete-region (- (point) (- (current-column) term-width))
2808 (point)))
2812 (put-text-property old-point (point)
2825 ;; the end of a line should not cause wrapping.
2856 (let ((end (string-match "\r?$" str i)))
2857 (if end
2859 (prog1 (substring str (1+ i) end)
2860 (setq i (match-end 0))))
2946 ;; (setq term-scroll-end term-height)
2979 ;; We're at column 0. Goto end of buffer; to compensate,
2986 (goto-char (point-max)))
2997 (set-marker (process-mark proc) (point))
2998 (when save-point
2999 (goto-char save-point)
3000 (set-marker save-point nil))
3013 ;; only if the point matches the process-mark we started with.
3025 (when (or (= (point) save-marker)
3027 ;; Maybe user wants point to jump to the end.
3029 (or (eq scroll 'this) (not save-point)))
3035 (if (not (pos-visible-in-window-p (point) win))
3040 (>= (point) (process-mark proc)))
3042 (goto-char (point-max))
3052 (delete-region (point-min) (point))))
3061 (set-marker term-home-marker (point))
3071 (setq term-scroll-end term-height)
3248 (unless (= tcr (1- term-scroll-end))
3250 (if (> (+ tcr term-terminal-parameter) term-scroll-end)
3251 (- term-scroll-end 1 tcr)
3263 ;; \E[J - clear to end of screen (terminfo: ed, clear)
3266 ;; \E[K - clear to end of line (terminfo: el, el1)
3333 (setq term-scroll-end
3340 (= term-scroll-end term-height)))))
3353 ;; (goto-char (point-max))
3358 ;; (set-marker term-home-marker (point)))
3362 ;; (= term-scroll-end term-height))))
3410 (setq pos (point))
3414 (set-marker overlay-arrow-position (point) (current-buffer)))
3415 (cond ((or (< pos (point-min)) (> pos (point-max)))
3418 (set-window-point window overlay-arrow-position)))
3422 ;;; "down" as needed so that is no more that a window-full above (point-max).
3479 (define-key tmp [eob] '("Goto to end" . term-pager-eob))
3520 (goto-char (point-min))
3525 ; pager mode command to go to end of buffer
3538 ;; Move cursor to end of window.
3599 \\[term-pager-eob]\t\tMove to the end of the buffer.\n\
3625 (if (< down 0) term-scroll-start term-scroll-end))))
3628 (let ((save-point (copy-marker (point))) (save-top))
3633 ;; Delete scroll-needed lines at term-scroll-end,
3635 (term-vertical-motion term-scroll-end)
3636 (end-of-line)
3637 (setq save-top (point))
3639 (end-of-line)
3640 (delete-region save-top (point))
3641 (goto-char save-point)
3646 (setq save-top (point))
3648 (delete-region save-top (point))
3649 (goto-char save-point)
3662 (set-marker term-home-marker (point))))
3663 (goto-char save-point)
3664 (set-marker save-point nil))))
3674 (when (or (/= (point) (point-max)) (< down 0))
3687 ;; Delete lines from the end.
3689 (setq p (point))
3691 (delete-region p (point)))))
3697 ;; Assuming point is at the beginning of a screen line,
3698 ;; if the line above point wraps around, add a ?\n to undo the wrapping.
3704 (when (= kind 1) ;; erase left of point
3705 (let ((cols (term-horizontal-column)) (saved-point (point)))
3707 (delete-region (point) saved-point)
3709 (when (not (eq kind 1)) ;; erase right of point
3710 (let ((saved-point (point))
3714 (delete-region saved-point (point))
3718 ;; of the way Emacs display works) point will be at the end of
3727 (put-text-property saved-point (point) 'face 'default)
3728 (goto-char saved-point))))
3732 If KIND is 0, erase from (point) to (point-max);
3733 if KIND is 1, erase from home to point; else erase from home to point-max.
3734 Should only be called when point is at the start of a screen line."
3737 (delete-region (point) (point-max))
3742 (end-region (if (eq kind 1) (point) (point-max))))
3743 (delete-region start-region end-region)
3752 (let ((save-point (point)))
3755 (goto-char save-point)
3757 (delete-region save-point (point))))
3759 ;;; Insert COUNT spaces after point, but do not change any of
3761 ;;; at the end of this screen line to make room.
3764 (let ((save-point (point)) (save-eol) (pnt-at-eol))
3768 (setq save-eol (point))
3770 (end-of-line)
3771 (setq pnt-at-eol (point)))
3776 (when (>= (point) pnt-at-eol)
3777 (put-text-property pnt-at-eol (point) 'face 'default))
3778 (when (> save-eol (point))
3779 (delete-region (point) save-eol))
3780 (goto-char save-point)
3782 (goto-char save-point)))
3785 (let ((start (point))
3789 ;; The number of inserted lines shouldn't exceed the scroll region end.
3790 ;; The `term-scroll-end' line is part of the scrolling region, so
3793 (when (> (+ save-current-row lines) (1+ term-scroll-end))
3794 (setq lines (- lines (- (+ save-current-row lines) (1+ term-scroll-end)))))
3796 (delete-region start (point))
3797 (term-down (- (1+ term-scroll-end) save-current-row lines))
3805 (let ((start (point))
3811 ;; The `term-scroll-end' line is part of the scrolling region, so
3815 ;; If point is before scroll start,
3819 (setq start (point)))
3820 ;; The number of inserted lines shouldn't exceed the scroll region end.
3821 (when (> (+ save-current-row lines) (1+ term-scroll-end))
3822 (setq lines (- lines (- (+ save-current-row lines)(1+ term-scroll-end)))))
3823 (term-down (- (1+ term-scroll-end) save-current-row lines)))
3824 (setq start-deleted (point))
3826 (delete-region start-deleted (point))
3863 "Put the end of the buffer at the bottom of the window."
3865 (goto-char (point-max))
3885 ;;; history at point.
3886 ;;; term-dynamic-complete-filename Complete filename at point.
3888 ;;; term-replace-by-expanded-filename Expand and complete filename at point;
3937 "Return the word of WORD-CHARS at point, or nil if none is found.
3941 (let ((limit (point))
3950 (buffer-substring (match-beginning 0) (match-end 0))))))
3954 "Return the filename at point, or nil if none is found.
3961 "Dynamically perform completion at point.
3963 completion until a function returns non-nil, at which point completion is
3972 "Dynamically complete the filename at point.
3977 adds completion characters to the end of the filename. A completions listing
3992 "Dynamically complete at point as a filename.
4041 "Dynamically expand and complete the filename at point.
4055 This function inserts completion characters at point by completing STUB from
4102 "List in help buffer possible completions of the filename at point."
4210 ;;; last-input-end term-last-input-end