<?xml version="1.0"?>
<paste-with-annotations>
  <paste>
    <number>
      <integer>13736</integer>
    </number>
    <user>
      <string>metaperl</string>
    </user>
    <title>
      <string>targeting  command for a particular frame</string>
    </title>
    <contents>
      <string>;;; 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 &quot;Bouncing...&quot;)
  (shell-command &quot;BOUNCE&quot;)
  (switch-to-buffer &quot;*logs-shell*&quot;)
  (goto-char (point-max)))

(global-set-key &quot;\C-cb&quot; 'bounce)

(defun log-dir ()
  (interactive)
  (find-file &quot;/var/tmp/aggsvr-tbrannon/logs&quot;)
  (shell-current-directory))

(provide 'local)</string>
    </contents>
    <universal-time>
      <integer>3341326781</integer>
    </universal-time>
    <channel>
      <string>#xemacs</string>
    </channel>
    <colorization-mode>
      <string></string>
    </colorization-mode>
    <maybe-spam>
      <null/>
    </maybe-spam>
    <is-unicode>
      <null/>
    </is-unicode>
    <deletion-requested>
      <null/>
    </deletion-requested>
    <deletion-requested-email>
      <null/>
    </deletion-requested-email>
    <expiration-time>
      <null/>
    </expiration-time>
  </paste>
</paste-with-annotations>
