Mercurial > emacs
changeset 4425:1b48826df9cb
(other-frame): New function, analogous to other-window.
(ctl-x-5-map): Bind C-x 5 o to other-frame.
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Mon, 02 Aug 1993 22:18:34 +0000 |
| parents | 027d3affb2f8 |
| children | fe5912b3526a |
| files | lisp/frame.el |
| diffstat | 1 files changed, 17 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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)