Function: cperl-beautify-regexp
cperl-beautify-regexp is an interactive and byte-compiled function
defined in cperl-mode.el.gz.
Signature
(cperl-beautify-regexp &optional DEEP)
Documentation
Beautify a regular expression to level DEEP.
(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-regexp (&optional deep)
"Beautify a regular expression to level DEEP.
\(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
(goto-char (cperl-make-regexp-x))
(let ((b (point)) (e (make-marker)))
(forward-sexp 1)
(set-marker e (1- (point)))
(cperl-beautify-regexp-piece b e nil deep))))