From ceab6935fd988c7d31e2bf725f6af3d12773b6ce Mon Sep 17 00:00:00 2001 From: Roland McGrath Date: Mon, 2 Aug 1993 22:18:34 +0000 Subject: [PATCH] (other-frame): New function, analogous to other-window. (ctl-x-5-map): Bind C-x 5 o to other-frame. --- lisp/frame.el | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) diff --git a/lisp/frame.el b/lisp/frame.el index 743758d1095..90469d26b17 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -350,6 +350,22 @@ the user during startup." (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 @@ should use `set-frame-width' instead." (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) -- 2.39.5