diff options
| author | Noah Friedman <friedman@splode.com> | 1995-01-10 23:29:27 +0000 |
|---|---|---|
| committer | Noah Friedman <friedman@splode.com> | 1995-01-10 23:29:27 +0000 |
| commit | 61092916e3135b66793ef4db89ba928a9c37452a (patch) | |
| tree | 100636fc77edc57217707c2d1bf7124b37804937 /lisp/rlogin.el | |
| parent | fd29fef18eeaa279ca932a34f0313fd9398471e8 (diff) | |
| download | emacs-61092916e3135b66793ef4db89ba928a9c37452a.tar.gz | |
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.
Diffstat (limited to 'lisp/rlogin.el')
| -rw-r--r-- | lisp/rlogin.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/rlogin.el b/lisp/rlogin.el index 6aaaf31614c..f012e0a9fe7 100644 --- a/lisp/rlogin.el +++ b/lisp/rlogin.el @@ -180,8 +180,8 @@ variable." (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 @@ variable." ;; 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 @@ local one share the same directories (through NFS)." (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 ARG characters forward, or send a C-d to process if at end of buffer." (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 |