Mercurial > emacs
changeset 10384:1d0a7f841ffb
rlogin-tab-or-complete: insert tab in buffer, don't send directly to process.
rlogin, rlogin-directory-tracking-mode: use rlogin-remote-user,
not rlogin-user.
| author | Noah Friedman <friedman@splode.com> |
|---|---|
| date | Tue, 10 Jan 1995 23:29:27 +0000 |
| parents | a7fe0fb11314 |
| children | 7826b6c2b6e8 |
| files | lisp/rlogin.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/rlogin.el Tue Jan 10 22:03:13 1995 +0000 +++ b/lisp/rlogin.el Tue Jan 10 23:29:27 1995 +0000 @@ -180,8 +180,8 @@ (make-local-variable 'rlogin-host) (setq rlogin-host host) - (make-local-variable 'rlogin-user) - (setq rlogin-user user) + (make-local-variable 'rlogin-remote-user) + (setq rlogin-remote-user user) (cond ((eq rlogin-directory-tracking-mode t) @@ -189,7 +189,7 @@ ;; avoid a gratuitous resync check; the default should be the ;; user's home directory, be it local or remote. (setq comint-file-name-prefix - (concat "/" rlogin-user "@" rlogin-host ":")) + (concat "/" rlogin-remote-user "@" rlogin-host ":")) (cd-absolute comint-file-name-prefix)) ((null rlogin-directory-tracking-mode)) (t @@ -230,7 +230,7 @@ (setq rlogin-directory-tracking-mode t) (setq shell-dirtrack-p t) (setq comint-file-name-prefix - (concat "/" rlogin-user "@" rlogin-host ":"))) + (concat "/" rlogin-remote-user "@" rlogin-host ":"))) ((< prefix 0) (setq rlogin-directory-tracking-mode nil) (setq shell-dirtrack-p nil)) @@ -306,10 +306,10 @@ (delete-char arg))) (defun rlogin-tab-or-complete () - "Complete file name if doing directory tracking, or just send TAB." + "Complete file name if doing directory tracking, or just insert TAB." (interactive) (if rlogin-directory-tracking-mode (comint-dynamic-complete) - (send-string nil "\C-i"))) + (insert "\C-i"))) ;;; rlogin.el ends here