Re: Display *Help* in a dedicated frame

On 2026-03-31 22:09, Heime wrote:

> Although this function makes a new frame, the original frame still
> gets split to show the *Help*, whereas the new frame stays empty.
> 
> There are also the optional arguments in describe-symbol with some
> funky stuff happening in there.
> 
> (defun ksymbol (sbl)
>   "Show the full documentation of symbol SBL in a frame."
> 
>   (interactive
>     (let ( (prompt (format "Describe Symbol [%s]: "
>                      (or (symbol-name (symbol-at-point)) ""))) )
>       (list (completing-read prompt obarray #'fboundp t nil nil
>               (symbol-name (symbol-at-point))))))
> 
>   (let* ( (rnm  "[RDU] Quick Reference Display Unit")
> 	  (frm  (make-frame `((name . ,rnm) (minibuffer . nil))))
> 	  (bfr  (generate-new-buffer "Describe Symbol"))
>           (sym  (intern sbl)) )
>     (set-window-buffer (frame-root-window frm) bfr)
>     (with-current-buffer bfr
>       (describe-symbol sym)
>       (help-mode-setup-buttons bfr)
>       (setq buffer-read-only t))
>     (select-frame-set-input-focus frm)))
> 

(defun ksymbol (sbl)
   "Show the full documentation of symbol SBL in a frame."
   (interactive
    (let ((prompt (format "Describe Symbol [%s]: "
                          (or (symbol-name (symbol-at-point)) ""))))
      (list (completing-read prompt obarray #'fboundp t nil nil
                             (symbol-name (symbol-at-point))))))

   (let ((sym (intern sbl))
         (display-buffer-overriding-action
          '((display-buffer-pop-up-frame)
            (pop-up-frames . t)
            (name . "[RDU] Quick Reference Display Unit")
            (minibuffer . nil))))
     (describe-symbol sym)))

-- 
Jean Louis