Lines Matching +defs:old +defs:column
144 ;;; faces for everything so we're even faster than the old md-term.el !
433 ;;; term-get-old-input - function Hooks for specific
444 (defvar term-start-line-column 0) ;; (current-column) at start of screen line,
446 (defvar term-current-column 0) ;; If non-nil, is cache for (current-column).
453 ;; state 1: Last character was a graphic in the last column.
454 ;; If next char is graphic, first move one column right
480 (defvar term-old-mode-map nil) ;; Saves the old keymap when in char mode.
481 (defvar term-old-mode-line-format) ;; Saves old mode-line-format while paging.
482 (defvar term-pager-old-local-map nil) ;; Saves old keymap while paging.
483 (defvar term-pager-old-filter) ;; Saved process-filter while paging.
572 (defvar term-get-old-input (function term-get-old-input-default)
573 "Function that submits old text in term mode.
574 This function is called when return is typed while the point is in old text.
576 `term-get-old-input-default', which grabs the current line, and strips off
669 (defmacro term-handling-pager () 'term-pager-old-local-map)
751 (define-key term-mode-map "\C-c\C-m" 'term-copy-old-input)
824 '("Copy Old Input" . term-copy-old-input))
985 `term-input-sender' and `term-get-old-input' to appropriate functions,
1075 (make-local-variable 'term-start-line-column)
1076 (make-local-variable 'term-current-column)
1084 (make-local-variable 'term-pager-old-local-map)
1085 (make-local-variable 'term-old-mode-map)
1089 (make-local-variable 'term-get-old-input)
1122 (setq term-start-line-column nil)
1124 (setq term-current-column nil)
1146 (setq term-current-column nil)
1148 (setq term-start-line-column nil)
1247 (setq term-old-mode-map (current-local-map))
1269 (use-local-map term-old-mode-map)
1322 Blasts any old process running in the buffer. Doesn't set the buffer mode.
1327 (let ((proc (get-buffer-process buffer))) ; Blast any old process.
1753 (string-match "[!^]" (funcall term-get-old-input))
1838 (let ((old (buffer-substring (match-beginning 1) (match-end 1)))
1844 (if (not (search-forward old pos t))
1966 of variable term-get-old-input to retrieve old input, copies it to the
1982 The values of `term-get-old-input', `term-input-filter-functions', and
1987 term-get-old-input is the default: take the current line, discard any
1995 term-get-old-input snarfs the sexp ending at point.
2011 (funcall term-get-old-input)))
2058 (defun term-get-old-input-default ()
2059 "Default for `term-get-old-input'.
2069 (defun term-copy-old-input ()
2070 "Insert after prompt old input at point as new input to be edited.
2071 Calls `term-get-old-input' to get old input."
2073 (let ((input (funcall term-get-old-input))
2109 -- go straight to column 0.
2416 (let ((old-buffer (current-buffer)))
2419 (set-buffer old-buffer)))))
2523 ;;; Returns the current column in the current screen line.
2524 ;;; Note: (current-column) yields column in buffer line.
2526 (defun term-horizontal-column ()
2527 (- (term-current-column) (term-start-line-column)))
2538 (move-to-column (* term-width (/ (current-column) term-width)))
2542 (todo (+ count (/ (current-column) term-width))))
2547 (while (and (<= (setq H (max (/ (+ (current-column) term-width -1)
2557 (move-to-column (* todo term-width))
2562 (while (and (<= (setq H (max (/ (+ (current-column) term-width -1)
2572 (move-to-column (* (- H todo 1) term-width))
2575 ;;; The term-start-line-column variable is used as a cache.
2576 (defun term-start-line-column ()
2577 (cond (term-start-line-column)
2580 (setq term-start-line-column (current-column))
2582 term-start-line-column))))
2584 ;;; Same as (current-column), but uses term-current-column as a cache.
2585 (defun term-current-column ()
2586 (cond (term-current-column)
2587 ((setq term-current-column (current-column)))))
2589 ;;; Move DELTA column right (or left if delta < 0 limiting at column 0).
2592 (setq term-current-column (max 0 (+ (term-current-column) delta)))
2597 (move-to-column term-current-column t)
2598 ;; If move-to-column extends the current line it will use the face
2606 (let ((old-point (point)))
2608 (put-text-property old-point (point) 'face 'default)))
2625 (let ((save-col (term-current-column))
2628 (setq x (- save-col (current-column)))
2698 (let* ((i 0) char funny count save-point save-marker old-point temp win
2763 (term-move-columns (- (term-current-column)))
2766 (setq temp (- (+ (term-horizontal-column) count)
2780 (setq term-start-line-column
2781 term-current-column))
2784 (setq term-current-column nil)
2785 (setq term-start-line-column nil)))
2786 (setq old-point (point))
2791 (let ((old-column (current-column))
2794 (setq term-current-column (current-column)
2795 columns (- term-current-column old-column))
2806 (when (> (current-column) term-width)
2807 (delete-region (- (point) (- (current-column) term-width))
2810 (setq term-current-column nil)
2812 (put-text-property old-point (point)
2814 ;; If the last char was written in last column,
2815 ;; back up one column, but remember we did so.
2823 (setq count (term-current-column))
2831 (- count (term-current-column)))
2832 (setq term-current-column count))
2833 (when (> term-width (term-current-column))
2835 (1- (- term-width (term-current-column)))))
2836 (when (= term-width (term-current-column))
2840 (setq term-current-column term-start-line-column))
2906 (term-horizontal-column)
2976 (if (> (% (current-column) term-width) 0)
2979 ;; We're at column 0. Goto end of buffer; to compensate,
2988 (make-local-variable 'term-pager-old-filter)
2989 (setq term-pager-old-filter (process-filter proc))
3069 (setq term-current-column 1)
3257 (if (>= (+ term-terminal-parameter (term-current-column)) term-width)
3258 (- term-width (term-current-column) 1)
3316 (1+ (term-horizontal-column)))))
3341 (term-move-columns (- (term-current-column)))
3351 ;; (col (term-horizontal-column)))
3367 ;; (setq term-current-column nil)
3428 (setq term-current-column (current-column))
3429 (setq term-start-line-column term-current-column))
3436 (setq term-current-column term-start-line-column)
3491 (setq term-pager-old-local-map (current-local-map))
3493 (make-local-variable 'term-old-mode-line-format)
3494 (setq term-old-mode-line-format mode-line-format)
3610 (use-local-map term-pager-old-local-map)
3611 (setq term-pager-old-local-map nil)
3612 (setq mode-line-format term-old-mode-line-format)
3615 (set-process-filter process term-pager-old-filter)
3616 (funcall term-pager-old-filter process "")
3652 (setq term-current-column nil)
3669 (let ((start-column (term-horizontal-column)))
3679 (setq term-current-column 0)
3680 (setq term-start-line-column 0))
3692 (setq term-current-column 0)
3693 (setq term-start-line-column (current-column))))
3694 (when start-column
3695 (term-move-columns start-column))))
3705 (let ((cols (term-horizontal-column)) (saved-point (point)))
3711 (wrapped (and (zerop (term-horizontal-column))
3712 (not (zerop (term-current-column))))))
3740 (col (term-horizontal-column))
3747 (setq term-current-column nil)
3756 (move-to-column (+ (term-current-column) count) t)
3772 (move-to-column (+ (term-start-line-column) (- term-width count)) t)
3773 ;; If move-to-column extends the current line it will use the face
3786 (save-current-column term-current-column)
3787 (save-start-line-column term-start-line-column)
3799 (setq term-current-column save-current-column)
3800 (setq term-start-line-column save-start-line-column)
3807 (save-current-column term-current-column)
3808 (save-start-line-column term-start-line-column)
3828 (setq term-current-column save-current-column)
3829 (setq term-start-line-column save-start-line-column)
4236 ;;; the old shell package was used to implement a history mechanism,
4247 ;;; get-old-input) that need to be different from the defaults. Call