;;; I want XEmacs to run bounce() in a particular frame
;;; Is there a way to label a frame and then force a command
;;; to run there?


(defun bounce ()
  (interactive)
  (message "Bouncing...")
  (shell-command "BOUNCE")
  (switch-to-buffer "*logs-shell*")
  (goto-char (point-max)))

(global-set-key "\C-cb" 'bounce)

(defun log-dir ()
  (interactive)
  (find-file "/var/tmp/aggsvr-tbrannon/logs")
  (shell-current-directory))

(provide 'local)