Extension of make-frame-command to generate a frame on visible position

my-make-frame-command.el

;; 2つ目のフレームを作成する時，1つ目のフレームと重なって表示されてしまうため，重ならないよう場所を指定する
(defun my-make-frame-command ()
  "Make a new frame, on the same terminal as the selected frame.
If the terminal is a text-only terminal, this also selects the
new frame."
  (interactive)
  (if (display-graphic-p)
      (let ((left (cdr (assq 'left (frame-parameters (selected-frame)))))
	    (width (+ (frame-pixel-width) (frame-scroll-bar-width))))
	(make-frame (list
		     (cons 'left
			   (if (< left (/ (- (display-pixel-width) width) 2))
			       (+ left width)
			     (- left width)))
		     (cons 'width (frame-width))
		     (cons 'height (frame-height)))))
    (select-frame (make-frame))))
(define-key global-map "\C-x52" 'my-make-frame-command)