eldoc-box overlapping with company-box about eldoc-box HOT 7 CLOSED

(defun eldoc-box--at-point-x-by-company ()
  "Return the x position that accommodates company's popup."
  (if company-box--x
	  (+ company-box--x (* (frame-char-width (company-box--get-frame))
					(frame-parameter (company-box--get-frame) 'width)))
	nil))

(defun eldoc-box--at-point-x-by-company ()
  "Return the x position that accommodates company's popup."
  (cond
   ((and (boundp 'company-pseudo-tooltip-overlay)
         company-pseudo-tooltip-overlay)
    (+ (* (frame-char-width)
          (+ (overlay-get company-pseudo-tooltip-overlay
                          'company-width)
             (overlay-get company-pseudo-tooltip-overlay
                          'company-column)))
       (or (line-number-display-width t) 0)))
   ((and (boundp 'company-box--x) (numberp company-box--x))
	(+ company-box--x
       (frame-pixel-width (company-box--get-frame))))
   (t nil)))