[gnu.emacs] Performing functions in "the other window"

worley@EDDIE.MIT.EDU (Dale Worley) (06/27/89)

There is a whole series of operations that can be performed "in the
other window", all starting with "C-x 4".  It seemed that the support
code for the other-window-ness of these operations should be in one
function, so I wrote up the following function to do so.  As written,
it causes "C-x 6 anything" to do "C-x anything" in the other window,
and "ESC 6 anything" to do "ESC anything" in the other window, and if
you bind perform-operation-in-other-window to a two-character sequence
starting with any particular prefix key, it will extend the operations
of that prefix key to operate on the other window.

(defun perform-operation-in-other-window (prefix)
  "Performs an operation in the other window.
Prompts for the remainder of a multi-key command sequence, goes to the other
window, and executes the command.  The multi-key command sequence is assumed
to start with the first character that this command was invoked with.  Thus,
if it is invoked with C-x 6, then C-x 6 m invokes the command bound to C-x m
in the other window, and if it is invoked with ESC 6, then ESC 6 . invokes
the command bound to ESC . in the other window.  For this purpose, meta-ized
keys are treated as a two-key sequence starting with ESC.  Any prefix argument
is passed to the invoked command."
  (interactive "P")
  (let ((first-key (string-to-char (this-command-keys))))
    (if (>= first-key 128)
	(setq first-key ?\e))
    (setq unread-command-char first-key)
    (let ((key-sequence (read-key-sequence nil)))
      (other-window 1)
      (setq prefix-arg prefix)
      (call-interactively (key-binding key-sequence)))))

(global-set-key "\C-x6" 'perform-operation-in-other-window)
(global-set-key "\e6" 'perform-operation-in-other-window)

Dale
--
Dale Worley, Compass, Inc.                      worley@compass.com
The War on Drugs -- Prohibition for the '80s.

quiroz@cs.rochester.edu (Cesar Quiroz) (06/27/89)

In <8906261824.AA13559@galaxy.compass.com>, compass!worley@EDDIE.MIT.EDU
(Dale Worley) presents a function perform-operation-in-other-window,
a generalization of the behavior of C-x 4.  I find a minor problem:

| As written, it causes "C-x 6 anything" to do "C-x anything" in the
| other window, and "ESC 6 anything" to do "ESC anything" in the
| other window,...

The ESC 6 bit interferes annoyingly with its function as a prefix
argument accumulator (Compare any of the other ESC <digit>
bindings.)  It is preferable to leave ESC 6 alone.





-- 
                                      Cesar Augusto Quiroz Gonzalez
                                      Department of Computer Science
                                      University of Rochester
                                      Rochester,  NY 14627