diff options
author | Stefan Kangas <stefan@marxist.se> | 2022-07-12 16:32:07 +0200 |
---|---|---|
committer | Stefan Kangas <stefan@marxist.se> | 2022-07-12 16:38:37 +0200 |
commit | 0b94747ddc0391205b921adb5f3b6b488cca6b59 (patch) | |
tree | 2823155a147e0b012479f275d8ce95b197d99703 /lisp/pcmpl-unix.el | |
parent | 4650ea9c25514831d925e5006ea0c3679344333b (diff) | |
download | emacs-0b94747ddc0391205b921adb5f3b6b488cca6b59.tar.gz |
Make pcomplete/{rsh,rlogin} into alias for pcomplete/ssh
* lisp/pcmpl-unix.el (pcomplete/rlogin, pcomplete/rsh): Make into
aliases for 'pcomplete/ssh', as "rsh" and "rlogin" is more often than
not aliases for "ssh" on modern machines.
Diffstat (limited to 'lisp/pcmpl-unix.el')
-rw-r--r-- | lisp/pcmpl-unix.el | 14 |
1 files changed, 4 insertions, 10 deletions
diff --git a/lisp/pcmpl-unix.el b/lisp/pcmpl-unix.el index 0074722be78..8774f091c83 100644 --- a/lisp/pcmpl-unix.el +++ b/lisp/pcmpl-unix.el @@ -198,6 +198,10 @@ Uses both `pcmpl-ssh-config-file' and `pcmpl-ssh-known-hosts-file'." (pcomplete-here (pcmpl-ssh-hosts))) ;;;###autoload +(defalias 'pcomplete/rsh #'pcomplete/ssh) +(defalias 'pcomplete/rlogin #'pcomplete/ssh) + +;;;###autoload (defun pcomplete/scp () "Completion rules for the `scp' command. Includes files as well as host names followed by a colon." @@ -229,22 +233,12 @@ Includes files as well as host names followed by a colon." (defalias 'pcomplete/ftp 'pcmpl-unix-complete-hostname) (defalias 'pcomplete/ncftp 'pcmpl-unix-complete-hostname) (defalias 'pcomplete/ping 'pcmpl-unix-complete-hostname) -(defalias 'pcomplete/rlogin 'pcmpl-unix-complete-hostname) ;;;###autoload (defun pcomplete/telnet () (pcomplete-opt "xl(pcmpl-unix-user-names)") (pcmpl-unix-complete-hostname)) -;;;###autoload -(defun pcomplete/rsh () - "Complete `rsh', which, after the user and hostname, is like xargs." - (pcomplete-opt "l(pcmpl-unix-user-names)") - (pcmpl-unix-complete-hostname) - (pcomplete-here (funcall pcomplete-command-completion-function)) - (funcall (or (pcomplete-find-completion-function (pcomplete-arg 1)) - pcomplete-default-completion-function))) - (provide 'pcmpl-unix) ;;; pcmpl-unix.el ends here |