Lines Matching +defs:point +defs:marker
178 ;;; (make-local-variable 'mouse-yank-at-point)
180 ;;; (setq mouse-yank-at-point t)
385 ;; term-dynamic-complete Complete filename at point.
387 ;; term-replace-by-expanded-filename Expand and complete filename at point;
421 ;;; term-last-input-start - marker Handy if inferior always echoes
422 ;;; term-last-input-end - marker For term-kill-output command
441 (defvar term-home-marker) ;; Marks the "home" position for cursor addressing.
442 (defvar term-saved-home-marker nil) ;; When using alternate sub-buffer,
443 ;; contains saved term-home-marker from original sub-buffer .
447 (defvar term-current-row 0) ;; Current vertical row (relative to home-marker)
475 ;; by moving term-home-marker. It is set to t iff there is a
477 (defvar term-pending-delete-marker) ;; New user input in line mode needs to
567 ;; set by the marker-filter, which scans the debugger's output for
574 This function is called when return is typed while the point is in old text.
670 (defmacro term-using-alternate-sub-buffer () 'term-saved-home-marker)
1007 (make-local-variable 'term-home-marker)
1008 (setq term-home-marker (copy-marker 0))
1009 (make-local-variable 'term-saved-home-marker)
1017 (setq term-last-input-start (make-marker))
1019 (setq term-last-input-end (make-marker))
1103 (make-local-variable 'term-pending-delete-marker)
1104 (setq term-pending-delete-marker (make-marker))
1128 ;; matches part of the buffer before point.
1136 (let ((cur term-kill-echo-list) (found nil) (save-point (point)))
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."
1253 (when (> (point) pmark)
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)))
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))
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))))
1842 (setq pos (point))
1854 "Expand input history references before point and insert ARG spaces.
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
1995 term-get-old-input snarfs the sexp ending at point.
2006 (pmark-val (marker-position pmark))
2007 (input-is-new (>= (point) pmark-val))
2010 (buffer-substring pmark (point)))
2017 (buffer-substring pmark (point))))
2024 (let ((copy (buffer-substring pmark (point))))
2025 (delete-region pmark (point))
2047 (set-marker term-last-input-start pmark)
2048 (set-marker term-last-input-end (point))
2051 (when (marker-buffer term-pending-delete-marker)
2052 (delete-region term-pending-delete-marker pmark))
2053 (set-marker term-pending-delete-marker pmark-val)
2054 (set-marker (process-mark proc) (point)))
2065 (let ((beg (point)))
2067 (buffer-substring beg (point)))))
2070 "Insert after prompt old input at point as new input to be edited.
2083 (let ((eol (save-excursion (end-of-line) (point))))
2090 "Is point after the process output marker?"
2091 ;; Since output could come into the buffer after we looked at the point
2092 ;; but before we looked at the process marker's value, we explicitly
2095 (let ((proc-pos (marker-position
2097 (<= proc-pos (point))))
2226 (set-marker pmark (point))))
2230 Sets mark to the value of point when this command is run."
2235 (set-window-start (selected-window) (point))
2269 "Kill all text from last stuff output by interpreter to point."
2272 (p-pos (marker-position pmark)))
2273 (when (> (point) p-pos)
2274 (kill-region pmark (point)))))
2298 (point)))))
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))))))
2509 (proc-pt (marker-position proc-mark)))
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)))))))
2578 ((let ((save-pos (point)))
2593 (let (point-at-eol)
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))
2698 (let* ((i 0) char funny count save-point save-marker old-point temp win
2714 (when (marker-buffer term-pending-delete-marker)
2715 ;; Delete text following term-pending-delete-marker.
2716 (delete-region term-pending-delete-marker (process-mark proc))
2717 (set-marker term-pending-delete-marker nil))
2726 (setq save-marker (copy-marker (process-mark proc)))
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))
2807 (delete-region (- (point) (- (current-column) term-width))
2808 (point)))
2812 (put-text-property old-point (point)
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)))
3032 (goto-char term-home-marker)
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))))
3053 (set-marker save-marker nil)))))
3059 (goto-char term-home-marker)
3061 (set-marker term-home-marker (point))
3353 ;; (goto-char (point-max))
3357 ;; (setq term-saved-home-marker (copy-marker term-home-marker))
3358 ;; (set-marker term-home-marker (point)))
3363 ;; (set-marker term-home-marker term-saved-home-marker)
3364 ;; (set-marker term-saved-home-marker nil)
3365 ;; (setq term-saved-home-marker nil)
3366 ;; (goto-char term-home-marker)))
3410 (setq pos (point))
3413 (setq overlay-arrow-position (make-marker)))
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)))
3420 ;;; The buffer-local marker term-home-marker defines the "home position"
3421 ;;; (in terms of cursor motion). However, we move the term-home-marker
3422 ;;; "down" as needed so that is no more that a window-full above (point-max).
3426 (goto-char term-home-marker)
3520 (goto-char (point-min))
3528 (goto-char term-home-marker)
3628 (let ((save-point (copy-marker (point))) (save-top))
3629 (goto-char term-home-marker)
3637 (setq save-top (point))
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))
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))
3741 (start-region term-home-marker)
3742 (end-region (if (eq kind 1) (point) (point-max))))
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
3764 (let ((save-point (point)) (save-eol) (pnt-at-eol))
3768 (setq save-eol (point))
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))
3796 (delete-region start (point))
3805 (let ((start (point))
3815 ;; If point is before scroll start,
3819 (setq start (point)))
3824 (setq start-deleted (point))
3826 (delete-region start-deleted (point))
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))
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.
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."