2688 |
(term-move-columns columns) |
(term-move-columns columns) |
2689 |
(delete-region pos (point)))) |
(delete-region pos (point)))) |
2690 |
(setq term-current-column nil) |
(setq term-current-column nil) |
2691 |
|
|
2692 |
(put-text-property old-point (point) |
(put-text-property old-point (point) |
2693 |
'face term-current-face) |
'face term-current-face) |
2694 |
;; If the last char was written in last column, |
;; If the last char was written in last column, |
3739 |
(t (car term-completion-addsuffix)))) |
(t (car term-completion-addsuffix)))) |
3740 |
(filesuffix (cond ((not term-completion-addsuffix) "") |
(filesuffix (cond ((not term-completion-addsuffix) "") |
3741 |
((not (consp term-completion-addsuffix)) " ") |
((not (consp term-completion-addsuffix)) " ") |
3742 |
(t (cdr term-completion-addsuffix)))) |
(t (cdr term-completion-addsuffix)))) |
3743 |
(filename (or (term-match-partial-filename) "")) |
(filename (or (term-match-partial-filename) "")) |
3744 |
(pathdir (file-name-directory filename)) |
(pathdir (file-name-directory filename)) |
3745 |
(pathnondir (file-name-nondirectory filename)) |
(pathnondir (file-name-nondirectory filename)) |