Mercurial > emacs
annotate lisp/rlogin.el @ 7863:c4adb7401604
(forms-mode): Plug security hole by disabling `eval-buffer' unless
`enable-local-eval' is set to t.
Correct setting of `forms--mode-setup'.
(forms--local-write-file-function): New function to be used as
`local-write-file-hooks'.
(forms-mode): Use it.
(forms-find-file,forms-find-file-other-window): Locally set
`enable-local-eval' and `enable-local-variables' to t.
(forms-find-file-other-window): Remove extraneous call to
`eval-current-buffer'.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 13 Jun 1994 12:07:44 +0000 |
parents | 85abf27f701f |
children | 8fcef41c85b7 |
rev | line source |
---|---|
2233
fb0ed5a1d0f3
Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2231
diff
changeset
|
1 ;;; rlogin.el --- remote login interface |
fb0ed5a1d0f3
Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2231
diff
changeset
|
2 |
2539
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
3 ;; Author: Noah Friedman |
2233
fb0ed5a1d0f3
Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2231
diff
changeset
|
4 ;; Maintainer: Noah Friedman <friedman@prep.ai.mit.edu> |
2259 | 5 ;; Keywords: unix, comm |
2233
fb0ed5a1d0f3
Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2231
diff
changeset
|
6 |
5792
242985a124fc
Removed many extra autoload cookies.
Roland McGrath <roland@gnu.org>
parents:
5208
diff
changeset
|
7 ;; Copyright (C) 1992, 1993, 1994 Free Software Foundation, Inc. |
2315
9e7ec92a4fdf
Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2259
diff
changeset
|
8 ;; |
9e7ec92a4fdf
Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2259
diff
changeset
|
9 ;; This program is free software; you can redistribute it and/or modify |
9e7ec92a4fdf
Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2259
diff
changeset
|
10 ;; it under the terms of the GNU General Public License as published by |
9e7ec92a4fdf
Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2259
diff
changeset
|
11 ;; the Free Software Foundation; either version 2, or (at your option) |
9e7ec92a4fdf
Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2259
diff
changeset
|
12 ;; any later version. |
9e7ec92a4fdf
Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2259
diff
changeset
|
13 ;; |
9e7ec92a4fdf
Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2259
diff
changeset
|
14 ;; This program is distributed in the hope that it will be useful, |
9e7ec92a4fdf
Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2259
diff
changeset
|
15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
9e7ec92a4fdf
Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2259
diff
changeset
|
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
9e7ec92a4fdf
Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2259
diff
changeset
|
17 ;; GNU General Public License for more details. |
9e7ec92a4fdf
Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2259
diff
changeset
|
18 ;; |
9e7ec92a4fdf
Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2259
diff
changeset
|
19 ;; You should have received a copy of the GNU General Public License |
2404
845db675b3e9
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2387
diff
changeset
|
20 ;; along with this program; if not, write to: The Free Software Foundation, |
845db675b3e9
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2387
diff
changeset
|
21 ;; Inc.; 675 Massachusetts Avenue.; Cambridge, MA 02139, USA. |
2231 | 22 |
2315
9e7ec92a4fdf
Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2259
diff
changeset
|
23 ;;; Commentary: |
9e7ec92a4fdf
Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2259
diff
changeset
|
24 |
2387
cb44857cab89
moby rlogin-filter fixes
Noah Friedman <friedman@splode.com>
parents:
2315
diff
changeset
|
25 ;; Support for remote logins using `rlogin'. |
5793
85abf27f701f
(rlogin-delchar-or-send-Ctrl-D): Call rlogin-send-Ctrl-D. Doc fix.
Roland McGrath <roland@gnu.org>
parents:
5792
diff
changeset
|
26 ;; $Id: rlogin.el,v 1.16 1994/02/05 21:00:13 roland Exp roland $ |
4856
896f3b49b53c
(rlogin-initially-track-cwd): New variable.
Noah Friedman <friedman@splode.com>
parents:
4685
diff
changeset
|
27 |
896f3b49b53c
(rlogin-initially-track-cwd): New variable.
Noah Friedman <friedman@splode.com>
parents:
4685
diff
changeset
|
28 ;;; Todo: |
896f3b49b53c
(rlogin-initially-track-cwd): New variable.
Noah Friedman <friedman@splode.com>
parents:
4685
diff
changeset
|
29 |
896f3b49b53c
(rlogin-initially-track-cwd): New variable.
Noah Friedman <friedman@splode.com>
parents:
4685
diff
changeset
|
30 ;; Make this mode deal with comint-last-input-end properly. |
2231 | 31 |
2233
fb0ed5a1d0f3
Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2231
diff
changeset
|
32 ;;; Code: |
fb0ed5a1d0f3
Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2231
diff
changeset
|
33 |
2231 | 34 (require 'comint) |
4685 | 35 (require 'shell) |
2231 | 36 |
2539
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
37 ;;;###autoload |
2231 | 38 (defvar rlogin-program "rlogin" |
39 "*Name of program to invoke rlogin") | |
40 | |
2539
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
41 ;;;###autoload |
2404
845db675b3e9
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2387
diff
changeset
|
42 (defvar rlogin-explicit-args nil |
845db675b3e9
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2387
diff
changeset
|
43 "*List of arguments to pass to rlogin on the command line.") |
845db675b3e9
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2387
diff
changeset
|
44 |
2539
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
45 ;;;###autoload |
2231 | 46 (defvar rlogin-mode-hook nil |
47 "*Hooks to run after setting current buffer to rlogin-mode.") | |
48 | |
2539
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
49 ;;;###autoload |
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
50 (defvar rlogin-process-connection-type nil |
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
51 "*If non-`nil', use a pty for the local rlogin process. |
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
52 If `nil', use a pipe (if pipes are supported on the local system). |
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
53 |
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
54 Generally it is better not to waste ptys on systems which have a static |
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
55 number of them. On the other hand, some implementations of `rlogin' assume |
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
56 a pty is being used, and errors will result from using a pipe instead.") |
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
57 |
4856
896f3b49b53c
(rlogin-initially-track-cwd): New variable.
Noah Friedman <friedman@splode.com>
parents:
4685
diff
changeset
|
58 ;;;###autoload |
896f3b49b53c
(rlogin-initially-track-cwd): New variable.
Noah Friedman <friedman@splode.com>
parents:
4685
diff
changeset
|
59 (defvar rlogin-initially-track-cwd t |
896f3b49b53c
(rlogin-initially-track-cwd): New variable.
Noah Friedman <friedman@splode.com>
parents:
4685
diff
changeset
|
60 "*If non-`nil', do remote directory tracking via ange-ftp right away. |
896f3b49b53c
(rlogin-initially-track-cwd): New variable.
Noah Friedman <friedman@splode.com>
parents:
4685
diff
changeset
|
61 If `nil', you can still enable directory tracking by doing |
896f3b49b53c
(rlogin-initially-track-cwd): New variable.
Noah Friedman <friedman@splode.com>
parents:
4685
diff
changeset
|
62 `M-x dirtrack-toggle'.") |
896f3b49b53c
(rlogin-initially-track-cwd): New variable.
Noah Friedman <friedman@splode.com>
parents:
4685
diff
changeset
|
63 |
2539
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
64 ;; Leave this nil because it makes rlogin-filter a tiny bit faster. Plus |
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
65 ;; you can still call rlogin-password by hand. |
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
66 ;;;###autoload |
2404
845db675b3e9
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2387
diff
changeset
|
67 (defvar rlogin-password-paranoia nil |
2539
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
68 "*If non-`nil', query user for a password in the minibuffer when a Password: prompt appears. |
2404
845db675b3e9
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2387
diff
changeset
|
69 It's also possible to selectively enter passwords without echoing them in |
2539
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
70 the minibuffer using the command `rlogin-password' explicitly.") |
2404
845db675b3e9
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2387
diff
changeset
|
71 |
2231 | 72 ;; Initialize rlogin mode map. |
73 (defvar rlogin-mode-map '()) | |
74 (cond ((not rlogin-mode-map) | |
4678
cd842296bebf
(rlogin): After rlogin-mode, set comint-filename-prefix locally to indicate
Roland McGrath <roland@gnu.org>
parents:
2948
diff
changeset
|
75 (setq rlogin-mode-map (cons 'keymap shell-mode-map)) |
2231 | 76 (define-key rlogin-mode-map "\C-c\C-c" 'rlogin-send-Ctrl-C) |
5792
242985a124fc
Removed many extra autoload cookies.
Roland McGrath <roland@gnu.org>
parents:
5208
diff
changeset
|
77 (define-key rlogin-mode-map "\C-c\C-d" 'rlogin-send-Ctrl-D) |
2231 | 78 (define-key rlogin-mode-map "\C-c\C-z" 'rlogin-send-Ctrl-Z) |
79 (define-key rlogin-mode-map "\C-c\C-\\" 'rlogin-send-Ctrl-backslash) | |
80 (define-key rlogin-mode-map "\C-d" 'rlogin-delchar-or-send-Ctrl-D))) | |
81 | |
2387
cb44857cab89
moby rlogin-filter fixes
Noah Friedman <friedman@splode.com>
parents:
2315
diff
changeset
|
82 ;;;###autoload |
4856
896f3b49b53c
(rlogin-initially-track-cwd): New variable.
Noah Friedman <friedman@splode.com>
parents:
4685
diff
changeset
|
83 (defun rlogin (input-args &optional prefix) |
2404
845db675b3e9
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2387
diff
changeset
|
84 "Open a network login connection to HOST via the `rlogin' program. |
845db675b3e9
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2387
diff
changeset
|
85 Input is sent line-at-a-time to the remote connection. |
845db675b3e9
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2387
diff
changeset
|
86 |
4856
896f3b49b53c
(rlogin-initially-track-cwd): New variable.
Noah Friedman <friedman@splode.com>
parents:
4685
diff
changeset
|
87 Communication with the remote host is recorded in a buffer *rlogin-HOST*, |
896f3b49b53c
(rlogin-initially-track-cwd): New variable.
Noah Friedman <friedman@splode.com>
parents:
4685
diff
changeset
|
88 where HOST is the first word in the string ARGS. If a prefix argument is |
896f3b49b53c
(rlogin-initially-track-cwd): New variable.
Noah Friedman <friedman@splode.com>
parents:
4685
diff
changeset
|
89 given and the buffer *rlogin-HOST* already exists, a new buffer with a |
896f3b49b53c
(rlogin-initially-track-cwd): New variable.
Noah Friedman <friedman@splode.com>
parents:
4685
diff
changeset
|
90 different connection will be made. |
2404
845db675b3e9
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2387
diff
changeset
|
91 |
845db675b3e9
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2387
diff
changeset
|
92 The variable `rlogin-program' contains the name of the actual program to |
845db675b3e9
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2387
diff
changeset
|
93 run. It can be a relative or absolute path. |
845db675b3e9
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2387
diff
changeset
|
94 |
845db675b3e9
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2387
diff
changeset
|
95 The variable `rlogin-explicit-args' is a list of arguments to give to |
4856
896f3b49b53c
(rlogin-initially-track-cwd): New variable.
Noah Friedman <friedman@splode.com>
parents:
4685
diff
changeset
|
96 the rlogin when starting. They are added after any arguments given in ARGS." |
896f3b49b53c
(rlogin-initially-track-cwd): New variable.
Noah Friedman <friedman@splode.com>
parents:
4685
diff
changeset
|
97 (interactive (list (read-from-minibuffer "rlogin arguments (hostname first): ") |
896f3b49b53c
(rlogin-initially-track-cwd): New variable.
Noah Friedman <friedman@splode.com>
parents:
4685
diff
changeset
|
98 current-prefix-arg)) |
2539
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
99 (let* ((process-connection-type rlogin-process-connection-type) |
4856
896f3b49b53c
(rlogin-initially-track-cwd): New variable.
Noah Friedman <friedman@splode.com>
parents:
4685
diff
changeset
|
100 (buffer-name (format "*rlogin-%s*" input-args)) |
896f3b49b53c
(rlogin-initially-track-cwd): New variable.
Noah Friedman <friedman@splode.com>
parents:
4685
diff
changeset
|
101 args |
896f3b49b53c
(rlogin-initially-track-cwd): New variable.
Noah Friedman <friedman@splode.com>
parents:
4685
diff
changeset
|
102 proc |
896f3b49b53c
(rlogin-initially-track-cwd): New variable.
Noah Friedman <friedman@splode.com>
parents:
4685
diff
changeset
|
103 (old-match-data (match-data))) |
896f3b49b53c
(rlogin-initially-track-cwd): New variable.
Noah Friedman <friedman@splode.com>
parents:
4685
diff
changeset
|
104 (while (string-match "[ \t]*\\([^ \t]+\\)$" input-args) |
896f3b49b53c
(rlogin-initially-track-cwd): New variable.
Noah Friedman <friedman@splode.com>
parents:
4685
diff
changeset
|
105 (setq args |
896f3b49b53c
(rlogin-initially-track-cwd): New variable.
Noah Friedman <friedman@splode.com>
parents:
4685
diff
changeset
|
106 (cons (substring input-args (match-beginning 1) (match-end 1)) |
896f3b49b53c
(rlogin-initially-track-cwd): New variable.
Noah Friedman <friedman@splode.com>
parents:
4685
diff
changeset
|
107 args) |
896f3b49b53c
(rlogin-initially-track-cwd): New variable.
Noah Friedman <friedman@splode.com>
parents:
4685
diff
changeset
|
108 input-args (substring input-args 0 (match-beginning 0)))) |
896f3b49b53c
(rlogin-initially-track-cwd): New variable.
Noah Friedman <friedman@splode.com>
parents:
4685
diff
changeset
|
109 (store-match-data old-match-data) |
896f3b49b53c
(rlogin-initially-track-cwd): New variable.
Noah Friedman <friedman@splode.com>
parents:
4685
diff
changeset
|
110 (setq buffer-name (format "*rlogin-%s*" (car args)) |
896f3b49b53c
(rlogin-initially-track-cwd): New variable.
Noah Friedman <friedman@splode.com>
parents:
4685
diff
changeset
|
111 args (append args rlogin-explicit-args)) |
2404
845db675b3e9
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2387
diff
changeset
|
112 (and prefix (setq buffer-name |
845db675b3e9
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2387
diff
changeset
|
113 (buffer-name (generate-new-buffer buffer-name)))) |
845db675b3e9
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2387
diff
changeset
|
114 (switch-to-buffer buffer-name) |
845db675b3e9
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2387
diff
changeset
|
115 (or (comint-check-proc buffer-name) |
845db675b3e9
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2387
diff
changeset
|
116 (progn |
845db675b3e9
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2387
diff
changeset
|
117 (comint-mode) |
845db675b3e9
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2387
diff
changeset
|
118 (comint-exec (current-buffer) buffer-name rlogin-program nil args) |
845db675b3e9
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2387
diff
changeset
|
119 (setq proc (get-process buffer-name)) |
2539
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
120 ;; Set process-mark to point-max in case there is text in the |
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
121 ;; buffer from a previous exited process. |
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
122 (set-marker (process-mark proc) (point-max)) |
4856
896f3b49b53c
(rlogin-initially-track-cwd): New variable.
Noah Friedman <friedman@splode.com>
parents:
4685
diff
changeset
|
123 (rlogin-mode) |
896f3b49b53c
(rlogin-initially-track-cwd): New variable.
Noah Friedman <friedman@splode.com>
parents:
4685
diff
changeset
|
124 ;; Set this *after* running rlogin-mode because rlogin-mode calls |
896f3b49b53c
(rlogin-initially-track-cwd): New variable.
Noah Friedman <friedman@splode.com>
parents:
4685
diff
changeset
|
125 ;; shell-mode, which munges the process filter. |
2404
845db675b3e9
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2387
diff
changeset
|
126 (set-process-filter proc 'rlogin-filter) |
4856
896f3b49b53c
(rlogin-initially-track-cwd): New variable.
Noah Friedman <friedman@splode.com>
parents:
4685
diff
changeset
|
127 ;; Set the prefix for filename completion and directory tracking |
896f3b49b53c
(rlogin-initially-track-cwd): New variable.
Noah Friedman <friedman@splode.com>
parents:
4685
diff
changeset
|
128 ;; to find the remote machine's files by ftp. |
4874
20154e6389eb
(rlogin, rlogin-mode): Use comint-file-name-prefix,
Richard M. Stallman <rms@gnu.org>
parents:
4856
diff
changeset
|
129 (setq comint-file-name-prefix (concat "/" (car args) ":")) |
4856
896f3b49b53c
(rlogin-initially-track-cwd): New variable.
Noah Friedman <friedman@splode.com>
parents:
4685
diff
changeset
|
130 (and rlogin-initially-track-cwd |
896f3b49b53c
(rlogin-initially-track-cwd): New variable.
Noah Friedman <friedman@splode.com>
parents:
4685
diff
changeset
|
131 ;; Presume the user will start in his remote home directory. |
896f3b49b53c
(rlogin-initially-track-cwd): New variable.
Noah Friedman <friedman@splode.com>
parents:
4685
diff
changeset
|
132 ;; If this is wrong, M-x dirs will fix it. |
896f3b49b53c
(rlogin-initially-track-cwd): New variable.
Noah Friedman <friedman@splode.com>
parents:
4685
diff
changeset
|
133 (cd-absolute (concat "/" (car args) ":~/"))))))) |
2404
845db675b3e9
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2387
diff
changeset
|
134 |
2539
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
135 (defun rlogin-password (&optional proc) |
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
136 "Read a password and send it to an rlogin session. |
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
137 For each character typed, a `*' is echoed in the minibuffer. |
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
138 End with RET, LFD, or ESC. DEL or C-h rubs out. C-u kills line. |
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
139 C-g aborts attempt to read and send password. |
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
140 |
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
141 Optional argument PROC is the process to which the password should be sent. |
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
142 If not provided, send to the process in the current buffer. This argument |
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
143 is intended primarily for use by `rlogin-filter'." |
2404
845db675b3e9
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2387
diff
changeset
|
144 (interactive) |
2539
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
145 (or proc (setq proc (get-buffer-process (current-buffer)))) |
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
146 (let* ((buffer-name (buffer-name (process-buffer proc))) |
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
147 (pass (comint-read-noecho (format "Password for buffer \"%s\": " |
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
148 buffer-name) |
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
149 'stars))) |
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
150 (and pass |
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
151 (save-excursion |
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
152 (set-buffer buffer-name) |
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
153 (insert-before-markers "\n") |
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
154 (comint-send-string proc (format "%s\n" pass)))))) |
2231 | 155 |
156 (defun rlogin-mode () | |
2539
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
157 "Set major-mode for rlogin sessions. |
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
158 If `rlogin-mode-hook' is set, run it." |
2231 | 159 (interactive) |
2404
845db675b3e9
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2387
diff
changeset
|
160 (kill-all-local-variables) |
4678
cd842296bebf
(rlogin): After rlogin-mode, set comint-filename-prefix locally to indicate
Roland McGrath <roland@gnu.org>
parents:
2948
diff
changeset
|
161 (shell-mode) |
2231 | 162 (setq major-mode 'rlogin-mode) |
2404
845db675b3e9
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2387
diff
changeset
|
163 (setq mode-name "rlogin") |
2231 | 164 (use-local-map rlogin-mode-map) |
4856
896f3b49b53c
(rlogin-initially-track-cwd): New variable.
Noah Friedman <friedman@splode.com>
parents:
4685
diff
changeset
|
165 (setq shell-dirtrackp rlogin-initially-track-cwd) |
4874
20154e6389eb
(rlogin, rlogin-mode): Use comint-file-name-prefix,
Richard M. Stallman <rms@gnu.org>
parents:
4856
diff
changeset
|
166 (make-local-variable 'comint-file-name-prefix) |
2231 | 167 (run-hooks 'rlogin-mode-hook)) |
168 | |
2539
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
169 |
2231 | 170 (defun rlogin-filter (proc string) |
2948
843c652ebcc3
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2539
diff
changeset
|
171 (let (proc-mark region-begin window) |
843c652ebcc3
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2539
diff
changeset
|
172 (save-excursion |
843c652ebcc3
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2539
diff
changeset
|
173 (set-buffer (process-buffer proc)) |
5207
e4ebdcbb3ffc
(rlogin-filter): initialize `region-begin' to (marker-position proc-mark),
Noah Friedman <friedman@splode.com>
parents:
4874
diff
changeset
|
174 (setq proc-mark (process-mark proc)) |
e4ebdcbb3ffc
(rlogin-filter): initialize `region-begin' to (marker-position proc-mark),
Noah Friedman <friedman@splode.com>
parents:
4874
diff
changeset
|
175 (setq region-begin (marker-position proc-mark)) |
e4ebdcbb3ffc
(rlogin-filter): initialize `region-begin' to (marker-position proc-mark),
Noah Friedman <friedman@splode.com>
parents:
4874
diff
changeset
|
176 ;; If process mark is at window start, insert-before-markers will |
e4ebdcbb3ffc
(rlogin-filter): initialize `region-begin' to (marker-position proc-mark),
Noah Friedman <friedman@splode.com>
parents:
4874
diff
changeset
|
177 ;; insert text off-window since it's also inserting before the start |
e4ebdcbb3ffc
(rlogin-filter): initialize `region-begin' to (marker-position proc-mark),
Noah Friedman <friedman@splode.com>
parents:
4874
diff
changeset
|
178 ;; window mark. Make sure we can see the most recent text. |
e4ebdcbb3ffc
(rlogin-filter): initialize `region-begin' to (marker-position proc-mark),
Noah Friedman <friedman@splode.com>
parents:
4874
diff
changeset
|
179 (setq window (and (= proc-mark (window-start)) |
2948
843c652ebcc3
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2539
diff
changeset
|
180 (get-buffer-window (current-buffer)))) |
2539
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
181 (goto-char proc-mark) |
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
182 (insert-before-markers string) |
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
183 (goto-char region-begin) |
2948
843c652ebcc3
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2539
diff
changeset
|
184 (while (search-forward "\C-m" proc-mark 'goto-end) |
843c652ebcc3
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2539
diff
changeset
|
185 (delete-char -1))) |
843c652ebcc3
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2539
diff
changeset
|
186 ;; Frob window-start outside of save-excursion so it works whether the |
843c652ebcc3
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2539
diff
changeset
|
187 ;; current buffer is the process buffer or not. |
843c652ebcc3
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2539
diff
changeset
|
188 (and window |
843c652ebcc3
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2539
diff
changeset
|
189 (>= (window-start window) region-begin) |
843c652ebcc3
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2539
diff
changeset
|
190 (set-window-start window region-begin 'noforce))) |
2404
845db675b3e9
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2387
diff
changeset
|
191 (and rlogin-password-paranoia |
845db675b3e9
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2387
diff
changeset
|
192 (string= "Password:" string) |
2539
577c77cfd199
*** empty log message ***
Noah Friedman <friedman@splode.com>
parents:
2405
diff
changeset
|
193 (rlogin-password proc))) |
2231 | 194 |
195 (defun rlogin-send-Ctrl-C () | |
196 (interactive) | |
197 (send-string nil "\C-c")) | |
198 | |
5792
242985a124fc
Removed many extra autoload cookies.
Roland McGrath <roland@gnu.org>
parents:
5208
diff
changeset
|
199 (defun rlogin-send-Ctrl-D () |
242985a124fc
Removed many extra autoload cookies.
Roland McGrath <roland@gnu.org>
parents:
5208
diff
changeset
|
200 (interactive) |
242985a124fc
Removed many extra autoload cookies.
Roland McGrath <roland@gnu.org>
parents:
5208
diff
changeset
|
201 (send-string nil "\C-d")) |
242985a124fc
Removed many extra autoload cookies.
Roland McGrath <roland@gnu.org>
parents:
5208
diff
changeset
|
202 |
2231 | 203 (defun rlogin-send-Ctrl-Z () |
204 (interactive) | |
205 (send-string nil "\C-z")) | |
206 | |
207 (defun rlogin-send-Ctrl-backslash () | |
208 (interactive) | |
209 (send-string nil "\C-\\")) | |
210 | |
211 (defun rlogin-delchar-or-send-Ctrl-D (arg) | |
5793
85abf27f701f
(rlogin-delchar-or-send-Ctrl-D): Call rlogin-send-Ctrl-D. Doc fix.
Roland McGrath <roland@gnu.org>
parents:
5792
diff
changeset
|
212 "\ |
85abf27f701f
(rlogin-delchar-or-send-Ctrl-D): Call rlogin-send-Ctrl-D. Doc fix.
Roland McGrath <roland@gnu.org>
parents:
5792
diff
changeset
|
213 Delete ARG characters forward, or send a C-d to process if at end of buffer." |
2231 | 214 (interactive "p") |
215 (if (eobp) | |
5793
85abf27f701f
(rlogin-delchar-or-send-Ctrl-D): Call rlogin-send-Ctrl-D. Doc fix.
Roland McGrath <roland@gnu.org>
parents:
5792
diff
changeset
|
216 (rlogin-send-Ctrl-D) |
2231 | 217 (delete-char arg))) |
218 | |
2233
fb0ed5a1d0f3
Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2231
diff
changeset
|
219 ;;; rlogin.el ends here |