mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-22 05:51:11 -07:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
* 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`.
This commit is contained in:
Stefan Monnier 2024-02-02 18:59:21 -05:00
parent e9a668274e
commit 82e50a23fe
1 changed files with 3 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/progmodes/cperl-mode.el
View file

@ -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)