
(defvar cmd-history-max 50)

(setq cmd-specials (quote (("man" . cmd-man) ("vi" . cmd-no-go) ("su" . cmd-su) ("kinit" lambda (arg) (cmd-su arg "kinit")) ("more" . cmd-more) ("cd" . cmd-cd) ("pushd" lambda (arg) (cmd-dir-changing-command "pushd" arg)) ("popd" lambda (arg) (cmd-dir-changing-command "popd" arg)) ("cwd" . cmd-set-cwd))))

(defvar cmd-shell-name "/afs/athena.mit.edu/contrib/watchmaker/rc")

(defvar cmd-shell-args (list "-l"))

(defvar cmd-run-commands (if (file-exists-p "~/.cmdrc") (concat "source " (getenv "HOME") "/.cmdrc") nil))

(defvar cmd-rs6000-mode nil)

(defvar newline "
")

(defvar cmd-cd-function nil)

(setq cmd-cd-function (function (lambda (newdir) (message newdir))))

(defvar cmd-working-directory-regexp "[^/~]*\\([^ :%]+\\);")

(defvar cmd-remember-working-directory t)

(setq cmd-pre-completion-configuration nil)

(progn (or (boundp (quote cmd-mode-map)) (setq cmd-mode-map (make-sparse-keymap))) (define-key cmd-mode-map "" (quote cmd-delete-backward-char)) (define-key cmd-mode-map "" (quote cmd-beginning-of-line)) (define-key cmd-mode-map "" (quote cmd-backward-kill-word)) (define-key cmd-mode-map "" (quote cmd-copy-output-as-kill)) (define-key cmd-mode-map "p" (quote cmd-previous-history)) (define-key cmd-mode-map "n" (quote cmd-next-history)) (define-key cmd-mode-map "" (quote cmd-recenter)) (define-key cmd-mode-map "" (quote cmd-stop-process)) (define-key cmd-mode-map "" (quote cmd-interrupt-process)) (define-key cmd-mode-map "p" (quote cmd-read-password)) (define-key cmd-mode-map "s" (quote cmd-send-shell)) (define-key cmd-mode-map "" (quote cmd-delete-char)) (define-key cmd-mode-map "" (quote cmd-find-file)) (define-key cmd-mode-map "" (quote cmd-find-file-read-only)) (define-key cmd-mode-map "	" (quote cmd-completion)) (define-key cmd-mode-map "" (quote cmd-execute)))

(defun cmd (arg) (interactive "P") (byte-code "В€Г?ѓ Д‚1 ЕЖЗ!!И	!€ЙД!€КЛ	\"ѓ/ М	НД!ОД!O!@‚0 Д)!‡" [arg b nil cmd-goto 1 buffer-name generate-new-buffer "*cmd*" message sit-for string-match "<\\([0-9]*\\)>" read-from-string match-beginning match-end] 12))

(defun cmd-goto (arg) (interactive "p") (byte-code "Г€ДЕUѓ Ж‚ ЗИ\"!€	Й=…\" d`T=…\" db€	Й=?†0 К
!Л=?…5 Й ‡" [arg major-mode cmd-shell nil switch-to-buffer 1 "*cmd*" format "*cmd*<%d>" cmd-mode process-status run] 5))

(defun cmd-start (&optional num) (byte-code "	ѓ ВГ	\"‚ ДЕ!† ЉЖ!q€З ))‡" [buffer-name num format "*cmd*<%d>" "*cmd*" get-buffer generate-new-buffer cmd-mode] 5))

(defun cmd-rs6000 nil (interactive) (byte-code "В€ГД!€Б‰€ЕЖ!‡" [cmd-rs6000-mode t nil cmd-send-shell "stty -nl" message "RS 6000 compatibility enabled"] 3))

(defun cmd-mode nil "\
Sorry, I don't believe in documentation, but here's the map:
\\{cmd-mode-map}" (byte-code "Н €ОПР\"€С ‰€С ‰€С ‰€Д‰€Д‰€Т‰€Д‰€Д‰€УФ!‰	€Х
!€Ц‰€Ч‰€Ш €ЩЪ!‡" [cmd-top-m cmd-prompt-m cmd-cmd-m cmd-history nil cmd-history-pointern cmd-history-count cmd-history-end cmd-redirection cmd-working-directory cmd-mode-map mode-name major-mode kill-all-local-variables mapcar make-local-variable (cmd-top-m cmd-prompt-m cmd-cmd-m cmd-shell cmd-redirection cmd-just-started cmd-working-directory cmd-history cmd-history-end cmd-history-count cmd-history-pointer) make-marker 0 getenv "HOME" use-local-map "Cmd" cmd-mode cmd-start-shell run-hooks cmd-mode-hook] 10))

(defun cmd-start-shell nil (byte-code "Ж €Зc€И €ЙBКЛМНpC
C$\"‰)€Е‰€О	П\"‡" [process-environment cmd-shell cmd-shell-name cmd-shell-args cmd-just-started t end-of-buffer "
*** Starting cmd process
" cmd-prompt "TERM=emacs" apply start-process append ("cmd") set-process-filter cmd-filter] 9))

(defun cmd-add-history (command) (byte-code "	ВBBѓ З@\"‚ ‰€‰€И\"ѓ) T‰‚3 @A‰€ЗВ\")‡" [new command nil cmd-history cmd-history-end cmd-history-count cmd-history-max rplacd /=] 5))

(defun cmd-set-history (hist command) (byte-code "В@	\"‡" [hist command rplaca] 3))

(defun cmd-goto-history (hist) (byte-code "ДЕ	d\"
P\"€Ж	d\"€	b€‰€@@c€ЗИ!‡" [cmd-history-pointer cmd-cmd-m newline hist cmd-set-history buffer-substring delete-region delete-backward-char 1] 5))

(defun cmd-prompt nil (byte-code "Ж`\"€Ж	`\"€Зc€Ж
`\"€… И@@\"†\" Й!€‰‡" [cmd-top-m cmd-prompt-m cmd-cmd-m cmd-history newline cmd-history-pointer set-marker ">" equal cmd-add-history] 7))

(defun cmd-execute nil (interactive) (byte-code "Б€… О!€Б‰€ПР!… СР!€Т
\"€b€iУVdb€Фc€Х`\"ЦЧ\"УO…F Ш	\"ЩУ!БO

GУ=†b Ъ

GSHЫ\"…l 
ФP‰
€ЬФ\"?…ћ УGW…ќ ЫH=…’ УHI€T‰€‚y )€Э\"€Ю €ѓѕ ЯA
\"…» а!‚Б а!-)‡" [cmd-pre-completion-configuration nil cmd-prompt-m cmd-cmd-m was-prompt command wsp first special cmd-specials arg newline n cmd-history set-window-configuration get-buffer "*Completions*" kill-buffer delete-region 0 "
" buffer-substring string-match "[ 	
]+" assoc match-end /= 10 equal cmd-set-history cmd-prompt funcall cmd-send-shell] 16))

(defun cmd-redirect (arg) (interactive "P") (byte-code "В€ѓ 	ѓ Д	!€ЕЖ!‚ ЗИ!‚U 	ѓ( В‰€ЗЙ!‚U КЛМp!P!‰€ЗНОМ	!\"!€Д	!€Пed\"€РГ!€С ‰€Тd\"€ЕЖ!‡" [arg cmd-redirection nil cmd-prompt-m switch-to-buffer-other-window other-window 1 message "Redirection is off" "Redirection turned off" get-buffer-create ">>" buffer-name format "Redirecting to buffer %s" delete-region make-local-variable make-marker set-marker] 16))

(defun cmd-send-shell (string) (interactive "sSend shell: ") (byte-code "Г€Д	\"€
… Е	!‡" [cmd-shell string cmd-redirection nil process-send-string cmd-fake-output] 3))

(defun cmd-filter (process string) (byte-code "ЉК!q€	… 	q€
b€c€Л
`\"€… ?…2 МН\"…2 ОП!РП!O‰€…I З‰€…I С	P!)‡" [process cmd-redirection cmd-prompt-m string cmd-remember-working-directory cmd-working-directory cmd-just-started nil cmd-run-commands newline process-buffer set-marker string-match "current-directory-is \\([^
]*\\)" match-beginning 1 match-end cmd-send-shell] 8))

(defun cmd-cd (arg) (byte-code "ЖЗO‰€	ѓ Г‰€ИЙКR!‚ ИЙQ!€…( Л\"€Г‡" [arg cmd-remember-working-directory cmd-working-directory nil newline cmd-cd-function 0 -1 cmd-send-shell "cd " "; echo current-directory-is `pwd" funcall] 5))

(defun cmd-dir-changing-command (cmd arg) (byte-code "ЖЗO‰€	ѓ ИЙ
КЛ%!€Е‰‚\" И
КR!€Е‡" [arg cmd-remember-working-directory cmd newline cmd-working-directory nil 0 -1 cmd-send-shell concat " " "; echo current-directory-is $cwd"] 7))

(defun cmd-get-cwd nil (byte-code "ѓ 
ДP‰‚9 Љdb€Е €ЖЗИ!!?… Ж!†) ЙК!€Ж!…8 ЛМН!ОН!\"ДP‰)‡" [cmd-remember-working-directory default-directory cmd-working-directory cmd-working-directory-regexp "/" beginning-of-line looking-at regexp-quote ">" forward-line -1 buffer-substring match-beginning 1 match-end] 11))

(defun cmd-in-input nil (byte-code "`Y‡" [cmd-cmd-m] 2))

(defun narrow nil (byte-code "Б …	 Вd\"‡" [cmd-cmd-m cmd-in-input narrow-to-region] 4))

(defun cmd-delete-char (arg) (interactive "p") (byte-code "В€`U…	 lѓ ГД!‚ Е	!‡" [cmd-cmd-m arg nil cmd-send-shell "" delete-char] 3))

(defun cmd-delete-backward-char (arg) (interactive "p") (byte-code "Б€В €ГЋД!)‡" [arg nil narrow ((byte-code "А ‡" [widen] 2)) backward-delete-char-untabify] 3))

(defun cmd-beginning-of-line (arg) (interactive "p") (byte-code "Б€ВU…
 Г €ДЋЕ!)‡" [arg nil 1 narrow ((byte-code "А ‡" [widen] 2)) beginning-of-line] 3))

(defun cmd-backward-kill-word (arg) (interactive "p") (byte-code "Б€В €ГЋД!)‡" [arg nil narrow ((byte-code "А ‡" [widen] 2)) backward-kill-word] 3))

(defun cmd-copy-output-as-kill nil (interactive) (byte-code "В€Г ѓ Д	\"‚ Е ‡" [cmd-top-m cmd-prompt-m nil cmd-in-input copy-region-as-kill append-next-kill] 4))

(defun cmd-previous-history (arg) (interactive "p") (byte-code "Г€Д=…
 Е ѓ 
A	… Ж	!)‚ З!‡" [arg prev cmd-history-pointer nil 1 cmd-in-input cmd-goto-history previous-line] 4))

(defun cmd-next-history (arg) (interactive "p") (byte-code "Г€Д=…
 Е ѓ 
@A	… Ж	!)‚ З!‡" [arg next cmd-history-pointer nil 1 cmd-in-input cmd-goto-history next-line] 4))

(defun cmd-recenter (arg) (interactive "P") (byte-code "В€†	 Г ?ѓ Д!‚2 ДЕЖ !ЗZ!€	…2 И	!€Й €ДЕЖ !ЗZ!€КЛ!‡" [arg cmd-redirection nil cmd-in-input recenter window-height selected-window 2 switch-to-buffer-other-window end-of-buffer other-window 1] 12))

(defun cmd-stop-process nil (interactive) (byte-code "А€Б ѓ ВГ!‚ Д ‡" [nil cmd-in-input cmd-send-shell "" suspend-emacs] 4))

(defun cmd-interrupt-process nil (interactive) (byte-code "В€ѓ Г	!‚ ДЕ!‡" [cmd-rs6000-mode cmd-shell nil interrupt-process cmd-send-shell ""] 3))

(defun cmd-find-file nil (interactive) (byte-code "А€Б €ВГ!‡" [nil cmd-get-cwd call-interactively find-file] 3))

(defun cmd-find-file-read-only nil (interactive) (byte-code "А€Б €ВГ!‡" [nil cmd-get-cwd call-interactively find-file-read-only] 3))

(defun cmd-completion nil (interactive) (byte-code "Н€О €`ННННП ННР €СТУ#…' `Tb€Ф`\"‰€`	b€ХЦ	Ч#…A `Tb)€Ш`\"€ЩЪ
	P!!‰€ЫЬ\"‰€НO‰€ЭЮ	ЯаOR!€б	аO\"‰€
?ѓ„ Эв!€b‚ч 
A?ѓ’ 
@‰‚ч г ‰€д	еж
\"\"‰€з ?…« ѓµ ий!q‚З к ‰€л €мн!€оий!!€п €рc€
…т 
@c€
A‰€
…о ст!€
@c€уc€
A‰€‚О €ф!€…х!q€b€ц`\"€c.‡" [p word comps filespec wordstart wordpoint replacement wind cmd-cmd-m temp default-directory t cmd-pre-completion-configuration nil cmd-get-cwd make-marker widen re-search-backward "[> 	]" 1000 buffer-substring search-backward "/" foo set-marker expand-file-name substitute-in-file-name string-match "[^/]*$" message "Completing " " in directory " 0 file-name-all-completions "No completions." selected-window try-completion mapcar list one-window-p get-buffer-create "*Completions*" current-window-configuration split-window other-window 1 switch-to-buffer erase-buffer "Possible completions are:
" indent-to-column 40 "
" select-window marker-buffer delete-region] 30))

(defun cmd-fake-output (str) (byte-code "В	\"‡" [cmd-shell str cmd-filter] 3))

(defun cmd-compose-mode (send-func) (byte-code "ГД!€ЕЖЗИЙКЛМ Й\"DFЗНОКЛМ О\"DFЗПРКЛМ Р\"DFСТ	УФE&ЗМ ЙХЦВЧE\"#€ЗМ РЦШЩЪЫЬBЭFF#)€ЗМ ОЮ#‡" [sendit send-func nil message "Press C-d at the end to send the message..." list (delete-region cmd-prompt-m cmd-cmd-m) define-key (current-local-map) "
" quote lookup-key current-local-map (current-local-map) "" (current-local-map) "" (insert "
") (goto-char (point-max)) cmd-cmd-m (point) append lambda (interactive) (arg) (interactive "p") if (= (point) (point-max)) progn (delete-char arg) newline] 22))

(defun cmd-man (arg) (byte-code "Г!€Д	ЕЖO!€В‡" [newline arg nil cmd-send-shell man 0 -1] 5))

(defun cmd-no-go (arg) (byte-code "БВ!€А‡" [t cmd-fake-output "You really, really don't want to do that.
"] 2))

(defun cmd-set-cwd (arg) (byte-code "ГЉД A@q€	‰)€ЕЖP!)€В‡" [wd default-directory t nil buffer-list cmd-send-shell "cd "] 4))

(defun cmd-emacs (arg) (byte-code "Б!‡" [arg cmd-no-go] 2))

(defun cmd-more (arg) (byte-code "Ж €З!€	ИЙO‰€	GИV…+ К	ИH=?…# 
	P‰€Л	!€Д‰€Е‡" [newline arg default-directory buffer-read-only t nil cmd-get-cwd cmd-send-shell 0 -1 47 find-file-other-window] 5))

(defun cmd-read-password nil (interactive) (byte-code "В€ЗВ	?…Z ИЙ!€rК=ѓ Д‰‚U Л=ѓ3 GМV…0 МНO‰‚U ОV…< ЛWѓJ ПР\"P‰‚U В‰€‰€Д‰)€‚ €…e СP!*‡" [password done nil key t unread-command-char newline "" message "Enter password: " 13 127 0 -1 32 make-string 1 cmd-send-shell] 6))

(defun cmd-su (arg &optional program) (byte-code "Д† ЕЖ	Q!€З €Г‰€Г‡" [program arg cmd-just-started t cmd-send-shell "su" " " cmd-read-password] 4))

(defun setenv (var value) (byte-code "Ж	ЗP!	ЗQ
… И
@\"?…3 
A‰€
ѓ* Й
\"‚/ B‰€‚ +‡" [prefix var env process-environment entry value regexp-quote "=" string-match rplaca] 6))