diff options
author | Noah Friedman <[email protected]> | 1995-01-10 23:29:27 +0000 |
---|---|---|
committer | Noah Friedman <[email protected]> | 1995-01-10 23:29:27 +0000 |
commit | 606679174a632684582091f1c60c23626a39a146 (patch) | |
tree | 0552288c73db5061361227bd9fa04e1e339f8252 /lisp | |
parent | b5a6948eea3a3eb5999d3b44b12820b16d513bde (diff) |
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')
-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 6aaaf31614..f012e0a9fe 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 |