From 606679174a632684582091f1c60c23626a39a146 Mon Sep 17 00:00:00 2001 From: Noah Friedman Date: Tue, 10 Jan 1995 23:29:27 +0000 Subject: [PATCH] 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. --- lisp/rlogin.el | 12 ++++++------ 1 file 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 -- 2.39.5