blob: 516fcb0b505bb60fe5f15f17b5c2641f153a4629 (plain)

ofs	hex dump	ascii
0000	0a 28 64 65 66 76 61 72 20 64 69 73 70 6c 61 79 2d 73 75 62 70 72 6f 63 65 73 73 2d 77 69 6e 64	.(defvar.display-subprocess-wind
0020	6f 77 20 6e 69 6c 20 22 5c 0a 49 66 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 65 20 73 75 70 72 6f 63	ow.nil."\.If.non-nil,.the.suproc
0040	65 73 73 20 77 69 6e 64 6f 77 20 69 73 20 64 69 73 70 6c 61 79 65 64 20 77 68 65 6e 65 76 65 72	ess.window.is.displayed.whenever
0060	20 69 6e 70 75 74 20 69 73 20 72 65 63 65 69 76 65 64 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 63	.input.is.received.")..(defvar.c
0080	6f 6d 6d 61 6e 64 2d 70 72 65 66 69 78 2d 73 74 72 69 6e 67 20 22 24 20 22 20 22 5c 0a 53 74 72	ommand-prefix-string."$."."\.Str
00a0	69 6e 67 20 74 6f 20 69 6e 73 65 72 74 20 74 6f 20 64 69 73 74 69 6e 67 75 69 73 68 20 63 6f 6d	ing.to.insert.to.distinguish.com
00c0	6d 61 6e 64 73 20 65 6e 74 65 72 65 64 20 62 79 20 75 73 65 72 2e 22 29 0a 0a 28 64 65 66 76 61	mands.entered.by.user.")..(defva
00e0	72 20 73 75 62 70 72 6f 63 65 73 73 2d 72 75 6e 6e 69 6e 67 20 6e 69 6c 29 0a 0a 28 64 65 66 76	r.subprocess-running.nil)..(defv
0100	61 72 20 63 6f 6d 6d 61 6e 64 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 29 0a 0a 28 69 66 20 63 6f	ar.command-mode-map.nil)..(if.co
0120	6d 6d 61 6e 64 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 20 28 73 65 74 71 20 63 6f 6d 6d 61 6e 64	mmand-mode-map.nil.(setq.command
0140	2d 6d 6f 64 65 2d 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 20	-mode-map.(make-sparse-keymap)).
0160	28 64 65 66 69 6e 65 2d 6b 65 79 20 63 6f 6d 6d 61 6e 64 2d 6d 6f 64 65 2d 6d 61 70 20 22 0d 22	(define-key.command-mode-map."."
0180	20 28 71 75 6f 74 65 20 63 6f 6d 6d 61 6e 64 2d 73 65 6e 64 2d 69 6e 70 75 74 29 29 20 28 64 65	.(quote.command-send-input)).(de
01a0	66 69 6e 65 2d 6b 65 79 20 63 6f 6d 6d 61 6e 64 2d 6d 6f 64 65 2d 6d 61 70 20 22 15 22 20 28 71	fine-key.command-mode-map.".".(q
01c0	75 6f 74 65 20 63 6f 6d 6d 61 6e 64 2d 6b 69 6c 6c 2d 6c 69 6e 65 29 29 29 0a 0a 28 64 65 66 75	uote.command-kill-line)))..(defu
01e0	6e 20 73 75 62 70 72 6f 63 65 73 73 2d 69 6e 70 75 74 20 28 6e 61 6d 65 20 73 74 72 29 20 22 5c	n.subprocess-input.(name.str)."\
0200	0a 48 61 6e 64 6c 65 73 20 69 6e 70 75 74 20 66 72 6f 6d 20 61 20 73 75 62 70 72 6f 63 65 73 73	.Handles.input.from.a.subprocess
0220	2e 20 20 43 61 6c 6c 65 64 20 62 79 20 45 6d 61 63 73 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20	...Called.by.Emacs.".(byte-code.
0240	22 08 85 07 00 c4 09 21 88 70 1a 09 71 88 64 62 88 0b 63 88 c5 63 88 0a 71 29 87 22 20 5b 64 69	"......!.p..q.db..c..c..q).".[di
0260	73 70 6c 61 79 2d 73 75 62 70 72 6f 63 65 73 73 2d 77 69 6e 64 6f 77 20 73 75 62 70 72 6f 63 65	splay-subprocess-window.subproce
0280	73 73 2d 62 75 66 20 6f 6c 64 2d 62 75 66 66 65 72 20 73 74 72 20 64 69 73 70 6c 61 79 2d 62 75	ss-buf.old-buffer.str.display-bu
02a0	66 66 65 72 20 31 30 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 73 75 62 70 72 6f 63 65 73 73 2d	ffer.10].2))..(defun.subprocess-
02c0	65 78 69 74 20 28 6e 61 6d 65 29 20 22 5c 0a 43 61 6c 6c 65 64 20 62 79 20 45 6d 61 63 73 20 75	exit.(name)."\.Called.by.Emacs.u
02e0	70 6f 6e 20 73 75 62 70 72 6f 63 65 73 73 20 65 78 69 74 2e 22 20 28 62 79 74 65 2d 63 6f 64 65	pon.subprocess.exit.".(byte-code
0300	20 22 c1 89 10 87 22 20 5b 73 75 62 70 72 6f 63 65 73 73 2d 72 75 6e 6e 69 6e 67 20 6e 69 6c 5d	."....".[subprocess-running.nil]
0320	20 32 29 29 0a 0a 28 64 65 66 75 6e 20 73 74 61 72 74 2d 73 75 62 70 72 6f 63 65 73 73 20 6e 69	.2))..(defun.start-subprocess.ni
0340	6c 20 22 5c 0a 53 70 61 77 6e 73 20 61 6e 20 61 73 79 6e 63 68 72 6f 6e 6f 75 73 20 73 75 62 70	l."\.Spawns.an.asynchronous.subp
0360	72 6f 63 65 73 73 20 77 69 74 68 20 6f 75 74 70 75 74 20 72 65 64 69 72 65 63 74 65 64 20 74 6f	rocess.with.output.redirected.to
0380	0a 74 68 65 20 62 75 66 66 65 72 20 2a 43 4f 4d 4d 41 4e 44 2a 2e 20 20 57 69 74 68 69 6e 20 74	.the.buffer.*COMMAND*...Within.t
03a0	68 69 73 20 62 75 66 66 65 72 2c 20 75 73 65 20 43 2d 6d 20 74 6f 20 73 65 6e 64 0a 74 68 65 20	his.buffer,.use.C-m.to.send.the.
03c0	6c 61 73 74 20 6c 69 6e 65 20 74 6f 20 74 68 65 20 73 75 62 70 72 6f 63 65 73 73 20 6f 72 20 74	last.line.to.the.subprocess.or.t
03e0	6f 20 62 72 69 6e 67 20 61 6e 6f 74 68 65 72 20 6c 69 6e 65 20 74 6f 0a 74 68 65 20 65 6e 64 2e	o.bring.another.line.to.the.end.
0400	22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 85 07 00 c4 c1 21 88 c5 c6 21 89 12 88 8a 0a 71 88	".(byte-code."......!...!.....q.
0420	c7 0b 21 29 88 c8 c9 ca cb 23 89 10 88 08 85 27 00 cc c9 cd 5c 22 87 22 20 5b 73 75 62 70 72 6f	..!).....#.....'....\".".[subpro
0440	63 65 73 73 2d 72 75 6e 6e 69 6e 67 20 74 20 73 75 62 70 72 6f 63 65 73 73 2d 62 75 66 20 63 6f	cess-running.t.subprocess-buf.co
0460	6d 6d 61 6e 64 2d 6d 6f 64 65 2d 6d 61 70 20 72 65 74 75 72 6e 20 67 65 74 2d 62 75 66 66 65 72	mmand-mode-map.return.get-buffer
0480	2d 63 72 65 61 74 65 20 22 2a 43 4f 4d 4d 41 4e 44 2a 22 20 75 73 65 2d 6c 6f 63 61 6c 2d 6d 61	-create."*COMMAND*".use-local-ma
04a0	70 20 73 70 61 77 6e 2d 73 75 62 70 72 6f 63 65 73 73 20 31 20 73 75 62 70 72 6f 63 65 73 73 2d	p.spawn-subprocess.1.subprocess-
04c0	69 6e 70 75 74 20 73 75 62 70 72 6f 63 65 73 73 2d 65 78 69 74 20 73 65 6e 64 2d 63 6f 6d 6d 61	input.subprocess-exit.send-comma
04e0	6e 64 2d 74 6f 2d 73 75 62 70 72 6f 63 65 73 73 20 22 4f 4e 20 53 45 56 45 52 45 5f 45 52 52 4f	nd-to-subprocess."ON.SEVERE_ERRO
0500	52 20 54 48 45 4e 20 43 4f 4e 54 49 4e 55 45 22 5d 20 37 29 29 0a 0a 28 64 65 66 75 6e 20 73 75	R.THEN.CONTINUE"].7))..(defun.su
0520	62 70 72 6f 63 65 73 73 2d 63 6f 6d 6d 61 6e 64 20 6e 69 6c 20 22 5c 0a 53 74 61 72 74 73 20 61	bprocess-command.nil."\.Starts.a
0540	73 79 6e 63 68 72 6f 6e 6f 75 73 20 73 75 62 70 72 6f 63 65 73 73 20 69 66 20 6e 6f 74 20 72 75	synchronous.subprocess.if.not.ru
0560	6e 6e 69 6e 67 20 61 6e 64 20 73 77 69 74 63 68 65 73 20 74 6f 20 69 74 73 20 77 69 6e 64 6f 77	nning.and.switches.to.its.window
0580	2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 08	.".(interactive).(byte-code."...
05a0	3f 85 09 00 c3 20 88 08 85 14 00 c4 09 21 88 64 62 87 22 20 5b 73 75 62 70 72 6f 63 65 73 73 2d	?............!.db.".[subprocess-
05c0	72 75 6e 6e 69 6e 67 20 73 75 62 70 72 6f 63 65 73 73 2d 62 75 66 20 6e 69 6c 20 73 74 61 72 74	running.subprocess-buf.nil.start
05e0	2d 73 75 62 70 72 6f 63 65 73 73 20 70 6f 70 2d 74 6f 2d 62 75 66 66 65 72 5d 20 33 29 29 0a 0a	-subprocess.pop-to-buffer].3))..
0600	28 64 65 66 75 6e 20 63 6f 6d 6d 61 6e 64 2d 73 65 6e 64 2d 69 6e 70 75 74 20 6e 69 6c 20 22 5c	(defun.command-send-input.nil."\
0620	0a 49 66 20 61 74 20 6c 61 73 74 20 6c 69 6e 65 20 6f 66 20 62 75 66 66 65 72 2c 20 73 65 6e 64	.If.at.last.line.of.buffer,.send
0640	73 20 74 68 65 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 20 74 6f 0a 74 68 65 20 73 70 61 77 6e 65	s.the.current.line.to.the.spawne
0660	64 20 73 75 62 70 72 6f 63 65 73 73 2e 20 20 4f 74 68 65 72 77 69 73 65 20 62 72 69 6e 67 73 20	d.subprocess...Otherwise.brings.
0680	62 61 63 6b 20 63 75 72 72 65 6e 74 0a 6c 69 6e 65 20 74 6f 20 74 68 65 20 6c 61 73 74 20 6c 69	back.current.line.to.the.last.li
06a0	6e 65 20 66 6f 72 20 72 65 73 75 62 6d 69 73 73 69 6f 6e 2e 22 20 28 69 6e 74 65 72 61 63 74 69	ne.for.resubmission.".(interacti
06c0	76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 c4 20 88 c5 60 c6 20 88 60 5c 22 18 6d 83	ve).(byte-code."......`...`\".m.
06e0	35 00 09 3f 85 18 00 c7 20 88 09 85 32 00 c4 20 88 c8 c9 08 5c 22 88 0a 85 2e 00 c4 20 88 0a 63	5..?........2.......\".........c
0700	88 ca c9 21 82 55 00 cb 20 88 cc 20 88 ca c9 21 88 cd 0a 08 ce 0a 47 4f 5c 22 83 53 00 08 0a 47	...!.U.........!......GO\".S...G
0720	c3 4f 63 82 55 00 08 63 29 87 22 20 5b 63 75 72 72 65 6e 74 2d 6c 69 6e 65 20 73 75 62 70 72 6f	.Oc.U..c).".[current-line.subpro
0740	63 65 73 73 2d 72 75 6e 6e 69 6e 67 20 63 6f 6d 6d 61 6e 64 2d 70 72 65 66 69 78 2d 73 74 72 69	cess-running.command-prefix-stri
0760	6e 67 20 6e 69 6c 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 62 75 66 66 65 72 2d	ng.nil.beginning-of-line.buffer-
0780	73 75 62 73 74 72 69 6e 67 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 73 74 61 72 74 2d 73 75 62 70	substring.end-of-line.start-subp
07a0	72 6f 63 65 73 73 20 73 65 6e 64 2d 63 6f 6d 6d 61 6e 64 2d 74 6f 2d 73 75 62 70 72 6f 63 65 73	rocess.send-command-to-subproces
07c0	73 20 31 20 6e 65 78 74 2d 6c 69 6e 65 20 65 6e 64 2d 6f 66 2d 62 75 66 66 65 72 20 62 61 63 6b	s.1.next-line.end-of-buffer.back
07e0	77 61 72 64 2d 63 68 61 72 20 73 74 72 69 6e 67 2d 65 71 75 61 6c 20 30 5d 20 31 36 29 29 0a 0a	ward-char.string-equal.0].16))..
0800	28 64 65 66 75 6e 20 63 6f 6d 6d 61 6e 64 2d 6b 69 6c 6c 2d 6c 69 6e 65 20 6e 69 6c 20 22 5c 0a	(defun.command-kill-line.nil."\.
0820	4b 69 6c 6c 73 20 74 68 65 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 2e 20 20 55 73 65 64 20 69 6e	Kills.the.current.line...Used.in
0840	20 63 6f 6d 6d 61 6e 64 20 6d 6f 64 65 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62	.command.mode.".(interactive).(b
0860	79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 20 88 c2 20 87 22 20 5b 6e 69 6c 20 62 65 67 69 6e 6e 69	yte-code."........".[nil.beginni
0880	6e 67 2d 6f 66 2d 6c 69 6e 65 20 6b 69 6c 6c 2d 6c 69 6e 65 5d 20 33 29 29 0a 0a 28 64 65 66 69	ng-of-line.kill-line].3))..(defi
08a0	6e 65 2d 6b 65 79 20 65 73 63 2d 6d 61 70 20 22 24 22 20 28 71 75 6f 74 65 20 73 75 62 70 72 6f	ne-key.esc-map."$".(quote.subpro
08c0	63 65 73 73 2d 63 6f 6d 6d 61 6e 64 29 29 0a	cess-command)).