Mercurial > emacs

comparison lisp/rlogin.el @ 2405:f51bd6676409

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Noah Friedman <friedman@splode.com>
date Sun, 28 Mar 1993 07:32:08 +0000
parents 845db675b3e9
children 577c77cfd199
comparison
equal deleted inserted replaced
2404:845db675b3e9 2405:f51bd6676409
79 (interactive (list current-prefix-arg 79 (interactive (list current-prefix-arg
80 (read-from-minibuffer "Open rlogin connection to host: "))) 80 (read-from-minibuffer "Open rlogin connection to host: ")))
81 (let* ((buffer-name (format "*rlogin-%s*" host)) 81 (let* ((buffer-name (format "*rlogin-%s*" host))
82 (args (if (and rlogin-explicit-args (listp rlogin-explicit-args)) 82 (args (if (and rlogin-explicit-args (listp rlogin-explicit-args))
83 (cons host rlogin-explicit-args) 83 (cons host rlogin-explicit-args)
84 (list host)))) 84 (list host)))
85 proc)
85 (and prefix (setq buffer-name 86 (and prefix (setq buffer-name
86 (buffer-name (generate-new-buffer buffer-name)))) 87 (buffer-name (generate-new-buffer buffer-name))))
87 (switch-to-buffer buffer-name) 88 (switch-to-buffer buffer-name)
88 (or (comint-check-proc buffer-name) 89 (or (comint-check-proc buffer-name)
89 (progn 90 (progn