cperl-mode.el: Don't use obsolete `special-display-popup-frame`

* lisp/progmodes/cperl-mode.el (cperl-info-on-command): Simplify,
to let `pop-to-buffer` decide whether to create a new frame or not,
so it can be controlled by `display-buffer-alist`.

(cherry picked from commit 82e50a23fea8bc435bfae8390008702aa7d74bda)

diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index bfc1742610cd491db61f444bd560c275f6c9748c..758a6e17f727fbaecd6d75e3fd54f75adb3718e9 100644 (file)
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -6612,14 +6612,13 @@ and \"Whitesmith\"."
             read))))
 
   (let ((cmd-desc (concat "^" (regexp-quote command) "[^a-zA-Z_0-9]")) ; "tr///"
-       pos isvar height iniheight frheight buf win fr1 fr2 iniwin not-loner
+       pos isvar height iniheight frheight buf win iniwin not-loner
        max-height char-height buf-list)
     (if (string-match "^-[a-zA-Z]$" command)
        (setq cmd-desc "^-X[ \t\n]"))
     (setq isvar (string-match "^[$@%]" command)
          buf (cperl-info-buffer isvar)
-         iniwin (selected-window)
-         fr1 (window-frame iniwin))
+         iniwin (selected-window))
     (set-buffer buf)
     (goto-char (point-min))
     (or isvar
@@ -6640,11 +6639,7 @@ and \"Whitesmith\"."
          (or (not win)
              (eq (window-buffer win) buf)
              (set-window-buffer win buf))
-         (and win (setq fr2 (window-frame win)))
-         (if (or (not fr2) (eq fr1 fr2))
-             (pop-to-buffer buf)
-           (special-display-popup-frame buf) ; Make it visible
-           (select-window win))
+         (pop-to-buffer buf)
          (goto-char pos)               ; Needed (?!).
          ;; Resize
          (setq iniheight (window-height)