Lines Matching +defs:scroll +defs:right
57 ;;; (defun term-send-right () (interactive) (term-send-raw-string "\eOC"))
161 ;;; - Implemented a maximum limit for the scroll buffer (stolen from
437 ;;; term-scroll-to-bottom-on-output - symbol ...
438 ;;; term-scroll-show-maximum-output - boolean...
454 ;; If next char is graphic, first move one column right
465 (defvar term-scroll-start 0) ;; Top-most line (inclusive) of scrolling region.
466 (defvar term-scroll-end) ;; Number of line (zero-based) after scrolling region.
472 (defvar term-scroll-with-delete nil) ;; term-scroll-with-delete is t if
476 ;; (non-default) scroll-region OR the alternate buffer is used.
507 surrounding them, and also be regarded as arguments in their own right (unlike
544 (defcustom term-scroll-to-bottom-on-output nil
545 "*Controls whether interpreter output causes window to scroll.
546 If nil, then do not scroll. If t or `all', scroll all windows showing buffer.
547 If `this', scroll only the selected window.
548 If `others', scroll only those that are not the selected window.
552 See variable `term-scroll-show-maximum-output'.
557 (defcustom term-scroll-show-maximum-output nil
558 "*Controls how interpreter output causes window to scroll.
561 See variable `term-scroll-to-bottom-on-output'.
661 (put 'term-scroll-to-bottom-on-output 'permanent-local t)
662 (put 'term-scroll-show-maximum-output 'permanent-local t)
906 (define-key term-raw-map [right] 'term-send-right)
914 (define-key term-raw-map [S-prior] 'scroll-down)
915 (define-key term-raw-map [S-next] 'scroll-up)
975 Input to, and output from, the subprocess can cause the window to scroll to
976 the end of the buffer. See variables `term-scroll-to-bottom-on-input',
977 and `term-scroll-to-bottom-on-output'.
1054 ;;; You may want to have different scroll-back sizes -mm
1079 (make-local-variable 'term-scroll-start)
1080 (make-local-variable 'term-scroll-end)
1081 (setq term-scroll-end term-height)
1082 (make-local-variable 'term-scroll-with-delete)
1098 (make-local-variable 'term-scroll-to-bottom-on-output)
1099 (make-local-variable 'term-scroll-show-maximum-output)
1125 (term-set-scroll-region 0 height))
1229 (defun term-send-right () (interactive) (term-send-raw-string "\eOC"))
1363 ;; save-excursion isn't the right thing if
2338 ;;; Alas, these guys don't do exactly the right thing for Lisp, Scheme
2345 ;;; the default, not foo.lisp. This is tricky to do right, particularly
2589 ;;; Move DELTA column right (or left if delta < 0 limiting at column 0).
2775 term-scroll-with-delete))
2776 (> (term-handle-scroll 1) 0))
2882 ((eq char ?D) ;; scroll forward
2883 (term-handle-deferred-scroll)
2892 ((eq char ?M) ;; scroll reversed (terminfo: ri)
2893 (if (or (< (term-current-row) term-scroll-start)
2895 term-scroll-start))
2897 ;; the scroll region.
2899 ;; Scrolling the scroll region is needed.
2903 (term-handle-deferred-scroll)
2945 ;; (setq term-scroll-start 0)
2946 ;; (setq term-scroll-end term-height)
2995 (term-handle-deferred-scroll))
3023 (let ((scroll term-scroll-to-bottom-on-output))
3026 (eq scroll t) (eq scroll 'all)
3029 (or (eq scroll 'this) (not save-point)))
3030 (and (eq scroll 'others)
3037 ;; Optionally scroll so that the text
3039 (when (and term-scroll-show-maximum-output
3055 (defun term-handle-deferred-scroll ()
3070 (setq term-scroll-start 0)
3071 (setq term-scroll-end term-height)
3235 (term-handle-deferred-scroll)
3238 (if (< (- tcr term-terminal-parameter) term-scroll-start)
3239 ;; If the amount to move is before scroll start, move
3240 ;; to scroll start.
3241 (- term-scroll-start tcr)
3248 (unless (= tcr (1- term-scroll-end))
3250 (if (> (+ tcr term-terminal-parameter) term-scroll-end)
3251 (- term-scroll-end 1 tcr)
3253 ;; \E[C - cursor right (terminfo: cuf, cuf1)
3312 (term-handle-deferred-scroll)
3319 (term-set-scroll-region
3324 (defun term-set-scroll-region (top bottom)
3329 (setq term-scroll-start
3333 (setq term-scroll-end
3334 (if (or (<= bottom term-scroll-start) (> bottom term-height))
3337 (setq term-scroll-with-delete
3339 (not (and (= term-scroll-start 0)
3340 (= term-scroll-end term-height)))))
3348 ;; (term-handle-deferred-scroll)
3356 ;; (setq term-scroll-with-delete t)
3360 ;; (setq term-scroll-with-delete
3361 ;; (not (and (= term-scroll-start 0)
3362 ;; (= term-scroll-end term-height))))
3425 (term-handle-deferred-scroll)
3432 (term-handle-deferred-scroll)
3622 (defun term-handle-scroll (down)
3623 (let ((scroll-needed
3625 (if (< down 0) term-scroll-start term-scroll-end))))
3626 (when (or (and (< down 0) (< scroll-needed 0))
3627 (and (> down 0) (> scroll-needed 0)))
3630 (cond (term-scroll-with-delete
3633 ;; Delete scroll-needed lines at term-scroll-end,
3634 ;; then insert scroll-needed lines.
3635 (term-vertical-motion term-scroll-end)
3638 (term-vertical-motion scroll-needed)
3642 (setq down (- scroll-needed down))
3644 ;; Delete scroll-needed lines at term-scroll-start.
3645 (term-vertical-motion term-scroll-start)
3647 (term-vertical-motion scroll-needed)
3651 (term-adjust-current-row-cache (- scroll-needed)))
3653 (term-insert-char ?\n (abs scroll-needed)))
3660 (term-adjust-current-row-cache (- scroll-needed))
3661 (term-vertical-motion scroll-needed)
3667 (defun term-down (down &optional check-for-scroll)
3670 (when (and check-for-scroll (or term-scroll-with-delete term-pager-count))
3671 (setq down (term-handle-scroll down)))
3709 (when (not (eq kind 1)) ;; erase right of point
3735 (term-handle-deferred-scroll)
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)))))
3797 (term-down (- (1+ term-scroll-end) save-current-row lines))
3810 ;; Inserting lines should take into account the scroll region.
3811 ;; The `term-scroll-end' line is part of the scrolling region, so
3814 (if (< save-current-row term-scroll-start)
3815 ;; If point is before scroll start,
3817 (setq lines (- lines (- term-scroll-start save-current-row)))
3818 (term-down (- term-scroll-start save-current-row))
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)))