
(provide (quote talk-special))

(defun talk-unique-remote-p nil "\
Returns process if in local and only one remote exists, of if default is
a remote buffer. [ie. if only 1 process recipient of typed key.]" (byte-code "ÄGÅ\"ƒ @‚ Ä	
\"ƒ Æp!‚ Ã‡" [talk-remote-process-list mode-name talk-remote-mode-string nil equal 1 get-buffer-process] 4))

(defun talk-other-emacs-p (process) "\
Returns t if remote is emacs, nil if not." (byte-code "ŠÂ!qˆ	)‡" [process talk-remote-is-emacs process-buffer] 2))

(defun talk-send-minibuffer-message (message) "\
Read message in the minibuffer, and send only if other is using
emacs." (interactive "sMessage: ") (byte-code "ÂˆÃ ÂB‰ˆÄ@!… @ƒ ÅÆÇ	\"\"‚\" ÈÉ!‡" [pl message nil talk-unique-remote-p talk-other-emacs-p talk-send-output format "%s
" error "Can't send message to that process."] 7))

(defun talk-hug-remote nil "\
Send a *HUG* as a minibuffer message to remote." (interactive) (byte-code "ÀˆÁÂ!‡" [nil talk-send-minibuffer-message "*HUG*"] 2))