Re: Displaying outline-heading-alist and outline-regexp in a dedicated buffer

On Friday, July 10th, 2026 at 1:56 PM, 
Heime <[email protected]> wrote:

> How may I print the values of outline-heading-alist and outline-regexp
> in a dedicated buffer?
> 
> (defun kronaire-headings ()
>   "Set the regular expression patterns (regexp) to identify lines of
> text that will serve as outline heading titles for `outline-minor-mode'
> across various major modes."
> 
>   (interactive)
> 
>   ;; HRKL ST("Hierarchical Levels")
>   ;; (memq ELT LIST)
>   ;;   MEMQ returns true if MAJOR-MODE is an element of LIST
> 
>   (let ( (hrkl  (kronaire-levels 8))
>          (hdgs  (concat (regexp-opt (mapcar 'car hrkl)) "\\>")) )
> 
>     (when hrkl
> 
>       (setq outline-heading-alist hrkl)
>       (setq outline-regexp hdgs)
>       (setq-local outline-level 'outline-level)
> 
>       (outline-minor-mode 0)
>       (outline-minor-mode 1)
> 
>       ;; Display `outline-heading-alist' and `outline-regexp'
> 
>       (let ( (buffer-name "Kronaire DU") )
> 	(with-current-buffer (get-buffer-create buffer-name)
>           (read-only-mode -1)  ; Make buffer writable
>           (erase-buffer)
>           (insert (format "%s" "kronaire-headings"))
>           (insert (format "outline-heading-alist:\n  %s\n"
>                             outline-heading-alist))
>           (insert (format "outline-regexp:\n  %s\n\n"
>                           outline-regexp))
>           (read-only-mode 1)   ;; Make buffer read-only
>           (display-buffer (current-buffer)))) )))

I then stored values in local varables HRKL and HDGS.  But still,
HRKL and HDGS do not hold the stored values from the LET.

   (let ( (hrkl  (kronaire-levels 8))
         (hdgs  (concat (regexp-opt (mapcar 'car hrkl)) "\\>")) )

    (when hrkl

      (let ( (buffer-name "Kronaire DU") )
	(with-current-buffer (get-buffer-create buffer-name)
          (read-only-mode -1)  ; Make buffer writable
          (erase-buffer)
          (insert (format "%s" "kronaire-headings"))
          (insert (format "outline-heading-alist:\n  %s\n" hrkl))
          (insert (format "outline-regexp:\n  %s\n\n" hdgs))
          (read-only-mode 1)   ; Make buffer read-only
          (display-buffer (current-buffer)))) )))