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

Do it. (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)
  "Do it.  (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))))