Werner LEMBERG <[email protected]> writes:

> Given that I have no idea about the internals of AUCTeX I can't help
> with coding; however, I'm willing to test any new Texinfo
> functionality.

Given what Ralf said about the experimental nature of folding in Texinfo
mode, maybe you can add this to your init file and see if works for you
as expected:

--8<---------------cut here---------------start------------->8---
(defun wl/Texinfo-fold-env-macro (&rest _ignore)
  (save-excursion
    (if (looking-at-p "@macro")
        (forward-sexp)
      (Texinfo-find-env-start)
      (forward-char)
      (skip-chars-forward "a-zA-Z"))
    (skip-chars-forward "^a-zA-Z")
    (concat "macro " (thing-at-point 'symbol t))))

(setq Texinfo-fold-env-spec-list
      '((wl/Texinfo-fold-env-macro ("macro"))))
--8<---------------cut here---------------end--------------->8---

Best, Arash



_______________________________________________
bug-auctex mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/bug-auctex

Reply via email to