# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 744329914 0
# Node ID 1b48826df9cb37b37892d735f05249467d3cd546
# Parent  027d3affb2f8f1d96470d01229c51041ccdb6d50
(other-frame): New function, analogous to other-window.
(ctl-x-5-map): Bind C-x 5 o to other-frame.

diff -r 027d3affb2f8 -r 1b48826df9cb lisp/frame.el
--- a/lisp/frame.el	Mon Aug 02 22:16:09 1993 +0000
+++ b/lisp/frame.el	Mon Aug 02 22:18:34 1993 +0000
@@ -350,6 +350,22 @@
   (cdr param-list))
 
 
+(defun other-frame (arg)
+  "Select the ARG'th different frame, deiconify and raise it.
+All frames are arranged in a cyclic order.
+This command selects the frame ARG steps away in that order.
+A negative ARG moves in the opposite order."
+  (interactive "p")
+  (let ((frame (selected-frame)))
+    (while (> arg 0)
+      (setq frame (next-frame frame)
+	    arg (1- arg)))
+    (while (< arg 0)
+      (setq frame (previous-frame frame)
+	    arg (1- arg)))
+    (make-frame-visible frame)
+    (raise-frame frame)
+    (select-frame frame)))
 
 ;;;; Frame configurations
 
@@ -535,6 +551,7 @@
 
 (define-key ctl-x-5-map "2" 'new-frame)
 (define-key ctl-x-5-map "0" 'delete-frame)
+(define-key ctl-x-5-map "o" 'other-frame)
 
 (provide 'frame)