/[emacs]/emacs/lisp/term.el
ViewVC logotype

Diff of /emacs/lisp/term.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.48 by rms, Tue Feb 4 11:43:01 2003 UTC revision 1.49 by lektu, Tue Feb 4 12:08:27 2003 UTC
# Line 2688  See `term-prompt-regexp'." Line 2688  See `term-prompt-regexp'."
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,
# Line 3739  See `term-dynamic-complete-filename'.  R Line 3739  See `term-dynamic-complete-filename'.  R
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))

Legend:
Removed from v.1.48  
changed lines
  Added in v.1.49

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26