Function: cperl-beautify-level

cperl-beautify-level is an interactive and byte-compiled function defined in cperl-mode.el.gz.

Signature

(cperl-beautify-level &optional DEEP)

Documentation

Find an enclosing group in regexp and beautify it.

Recurse to DEEP levels.
(Experimental, may change semantics, recheck the result.)
We suppose that the regexp is scanned already.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/cperl-mode.el.gz
(defun cperl-beautify-level (&optional deep)
  "Find an enclosing group in regexp and beautify it.
Recurse to DEEP levels.
\(Experimental, may change semantics, recheck the result.)
We suppose that the regexp is scanned already."
  (interactive "P")
  (setq deep (if deep (prefix-numeric-value deep) -1))
  (save-excursion
    (cperl-regext-to-level-start)
    (let ((b (point)) (e (make-marker)))
      (forward-sexp 1)
      (set-marker e (1- (point)))
      (cperl-beautify-regexp-piece b e 'level deep))))