[AUCTeX-devel] Narrowing

[Mosè Giordano]

Hi all,

I like narrowing and I wrote these two simple functions to narrow
(La)TeX code to the current environment and group:

--8<---------------cut here---------------start------------->8---
(defun LaTeX-narrow-to-environment (&optional arg)
  "Make text outside current environment invisible.
With optional ARG keep visible that number of enclosing
environmens."
  (interactive "p")
  (save-excursion
    (if (equal (LaTeX-current-environment arg) "document")
    (message "Nothing to be narrowed here.")
      (widen)
      (LaTeX-mark-environment arg)
      (narrow-to-region (mark) (point)))))

(defun TeX-narrow-to-group ()
  "Make text outside current group invisible."
  (interactive)
  (save-excursion
    (widen)
    (let ((opoint (point))
      beg end)
      (if (null (search-backward "{" nil t))
      (message "Nothing to be narrowed here.")
    (setq beg (point))
    (forward-sexp)
    (setq end (point))
    (if (< end opoint)
        (message "Nothing to be narrowed here.")
      (narrow-to-region beg end))))))
--8<---------------cut here---------------end--------------->8---

I suggest to bind the first to `C-c n e' and the second to `C-c n g'.
Do you think it's valuable to add them to AUCTeX?  If yes, should we
disable them by default?  I didn't test these functions thoroughly, so
improvements are welcome.

Bye,
Mosè