From c8c2aca8d0b231bfb960e2e4d4af268cceeada7c Mon Sep 17 00:00:00 2001 From: Dmitry Antipov Date: Tue, 6 Aug 2013 14:59:39 +0400 Subject: [PATCH] * frame.el (get-other-frame): Tiny cleanup. --- lisp/ChangeLog | 4 ++++ lisp/frame.el | 5 +---- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c7a5d6ae070..b9d97d4e140 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2013-08-06 Dmitry Antipov + + * frame.el (get-other-frame): Tiny cleanup. + 2013-08-06 Juanma Barranquero * vc/vc.el (vc-default-ignore-completion-table): diff --git a/lisp/frame.el b/lisp/frame.el index 9d3c839fa35..31a9123503d 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -500,10 +500,7 @@ See help of `modify-frame-parameters' for more information." "Return some frame other than the current frame. Create one if necessary. Note that the minibuffer frame, if separate, is not considered (see `next-frame')." - (let ((s (if (equal (next-frame (selected-frame)) (selected-frame)) - (make-frame) - (next-frame (selected-frame))))) - s)) + (if (equal (next-frame) (selected-frame)) (make-frame) (next-frame))) (defun next-multiframe-window () "Select the next window, regardless of which frame it is on." -- 2.39.2