;ELC ;;; compiled by friedman@nutrimat.gnu.ai.mit.edu on Thu Jun 16 04:10:53 1994 ;;; from file /gd/gnu/emacs/19.0/lisp/rlogin.el ;;; emacs version 19.25.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`/gd/gnu/emacs/19.0/lisp/rlogin.el' was compiled for Emacs 19")) (byte-code "ÀÁ!ˆÀÂ!‡" [require comint shell] 2) (defvar rlogin-program "rlogin" "\ *Name of program to invoke rlogin") (defvar rlogin-explicit-args nil "\ *List of arguments to pass to rlogin on the command line.") (defvar rlogin-mode-hook nil "\ *Hooks to run after setting current buffer to rlogin-mode.") (defvar rlogin-process-connection-type nil "\ *If non-`nil', use a pty for the local rlogin process. If `nil', use a pipe (if pipes are supported on the local system). Generally it is better not to waste ptys on systems which have a static number of them. On the other hand, some implementations of `rlogin' assume a pty is being used, and errors will result from using a pipe instead.") (defvar rlogin-initially-track-cwd t "\ *If non-`nil', do remote directory tracking via ange-ftp right away. If `nil', you can still enable directory tracking by doing `M-x dirtrack-toggle'.") (byte-code "ÀÁ!„ „.Ã\fBÅ ÆÇ#ˆÅ ÈÉ#ˆÅ ÊË#ˆÅ ÌÍ#ˆÅ ÎÏ#ˆÂ‡" [boundp rlogin-mode-map nil keymap shell-mode-map define-key "" rlogin-send-Ctrl-C "" rlogin-send-Ctrl-D "" rlogin-send-Ctrl-Z "" rlogin-send-Ctrl-backslash "" rlogin-delchar-or-send-Ctrl-D] 4) (defalias 'rlogin #[(input-args &optional prefix) "ÂÃ\f\"ÆÆÉ \nËÌ\f\"ƒ,\f͔͕OB\fΉ”O‚Ï\n!ˆÂÃ@\"Ð\"ƒKÅÓ !!Ô !ˆÕ !†‡Ö ˆ×p Æ%ˆÙ !Ú!dÆ“ˆÛ ˆÜ@ÝQ…‡àÜ@áQ!-‡" [rlogin-process-connection-type process-connection-type format "*rlogin-%s*" input-args buffer-name nil args proc match-data old-match-data string-match "[ ]*\\([^ ]+\\)$" 1 0 store-match-data append rlogin-explicit-args prefix generate-new-buffer switch-to-buffer comint-check-proc comint-mode comint-exec rlogin-program get-process process-mark rlogin-mode "/" ":" comint-file-name-prefix rlogin-initially-track-cwd cd-absolute ":~/"] 6 "\ Open a network login connection to HOST via the `rlogin' program. Input is sent line-at-a-time to the remote connection. Communication with the remote host is recorded in a buffer *rlogin-HOST*, where HOST is the first word in the string ARGS. If a prefix argument is given and the buffer *rlogin-HOST* already exists, a new buffer with a different connection will be made. The variable `rlogin-program' contains the name of the actual program to run. It can be a relative or absolute path. The variable `rlogin-explicit-args' is a list of arguments to give to the rlogin when starting. They are added after any arguments given in ARGS." (list (read-from-minibuffer "rlogin arguments (hostname first): ") current-prefix-arg)]) (defalias 'rlogin-mode #[nil "À ˆÁ ˆÂÄÆ!ˆ ÊË!ˆÌÍ!‡" [kill-all-local-variables shell-mode rlogin-mode major-mode "rlogin" mode-name use-local-map rlogin-mode-map rlogin-initially-track-cwd shell-dirtrackp make-local-variable comint-file-name-prefix run-hooks rlogin-mode-hook] 2 "\ Set major-mode for rlogin sessions. If `rlogin-mode-hook' is set, run it." nil]) (byte-code "ÀÁÂ\"ˆÀÃÄ\"ˆÀÅÆ\"ˆÀÇÈ\"‡" [defalias rlogin-send-Ctrl-C #[nil "ÀÁÂ\"‡" [send-string nil ""] 3 nil nil] rlogin-send-Ctrl-D #[nil "ÀÁÂ\"‡" [send-string nil ""] 3 nil nil] rlogin-send-Ctrl-Z #[nil "ÀÁÂ\"‡" [send-string nil ""] 3 nil nil] rlogin-send-Ctrl-backslash #[nil "ÀÁÂ\"‡" [send-string nil ""] 3 nil nil]] 3) (defalias 'rlogin-delchar-or-send-Ctrl-D #[(arg) "mƒÀ ‡Á\n!‡" [rlogin-send-Ctrl-D delete-char arg] 2 "\ Delete ARG characters forward, or send a C-d to process if at end of buffer." "p"])