Lines Matching defs:regexp
490 (defcustom cperl-regexp-scan t
537 (defcustom cperl-scan-files-regexp "\\.\\([pP][Llm]\\|xs\\)$"
539 :type 'regexp
542 (defcustom cperl-noscan-files-regexp
545 :type 'regexp
548 (defcustom cperl-regexp-indent-step nil
791 This may be confusing, since the regexp s#//#/#\; may be highlighted
792 as a comment, but it will be recognized as a regexp by the indentation
1128 (add-hook 'edit-var-mode-alist '(perl-mode (regexp . "^cperl-")))
1234 ["Beautify" cperl-beautify-regexp
1236 ["Beautify one level deep" (cperl-beautify-regexp 1)
1397 ;;; Is incorporated in `cperl-imenu--function-name-regexp-perl'
1398 ;;; `cperl-outline-regexp', `defun-prompt-regexp'.
1402 (defsubst cperl-after-sub-regexp (named attr) ; 9 groups without attr...
1439 (defvar cperl-imenu--function-name-regexp-perl
1448 (cperl-after-sub-regexp 'named nil) ; 8=name 11=proto 14=attr-start
1455 (defvar cperl-outline-regexp
1456 (concat cperl-imenu--function-name-regexp-perl "\\|" "\\`"))
1507 (defvar cperl-compilation-error-regexp-alist nil)
1730 (make-local-variable 'outline-regexp)
1731 ;; (setq outline-regexp imenu-example--function-name-regexp-perl)
1732 (setq outline-regexp cperl-outline-regexp)
1757 (make-local-variable 'defun-prompt-regexp)
1759 ;;; (cperl-after-sub-regexp 'named nil) ; 8=name 11=proto 14=attr-start
1761 (setq defun-prompt-regexp
1763 (cperl-after-sub-regexp 'named 'attr-groups)
1793 (cond ((boundp 'compilation-error-regexp-alist-alist);; xemacs 20.x
1794 (make-local-variable 'compilation-error-regexp-alist-alist)
1795 (set 'compilation-error-regexp-alist-alist
1796 (cons (cons 'cperl cperl-compilation-error-regexp-alist)
1797 (symbol-value 'compilation-error-regexp-alist-alist)))
1798 (if (fboundp 'compilation-build-compilation-error-regexp-alist)
1799 (let ((f 'compilation-build-compilation-error-regexp-alist))
1801 (make-local-variable 'compilation-error-regexp-alist)
1802 (push 'cperl compilation-error-regexp-alist)))
1803 ((boundp 'compilation-error-regexp-alist);; xmeacs 19.x
1804 (make-local-variable 'compilation-error-regexp-alist)
1805 (set 'compilation-error-regexp-alist
1806 (append cperl-compilation-error-regexp-alist
1807 (symbol-value 'compilation-error-regexp-alist)))))
2780 ;; (same offset as `cperl-beautify-regexp-piece'),
3042 (+ (or cperl-regexp-indent-step cperl-indent-level)
3056 (+ (* p (or cperl-regexp-indent-step cperl-indent-level))
3060 (- (or cperl-regexp-indent-step cperl-indent-level)))
3063 (or cperl-regexp-indent-step cperl-indent-level)
4085 qtag (regexp-quote tag))
4234 bb ; Not a regexp?
4236 ;; What is below: regexp-p?
4276 ;; Not a regexp
4438 (if (and is-REx cperl-regexp-scan)
4847 (t (error "Error in regexp of the sniffer")))
5557 (defun cperl-imenu--create-perl-index (&optional regexp)
5569 (or regexp cperl-imenu--function-name-regexp-perl)
5708 (looking-at outline-regexp)
5719 (defvar cperl-compilation-error-regexp-alist
5720 ;; This look like a paranoiac regexp: could anybody find a better one? (which WORKS).
6052 ;; (if (cperl-slash-is-regexp)
6679 (cmd-desc (concat "^" (regexp-quote command) "[^a-zA-Z_0-9]")) ; "tr///"
6818 (regexp-quote
6824 (setq search (regexp-quote (char-to-string (following-char)))))
7146 (if recurse nil cperl-scan-files-regexp)
7158 ((string-match cperl-noscan-files-regexp file)
7161 (if (string-match cperl-scan-files-regexp file)
7196 (defvar cperl-tags-hier-regexp-list
7215 (while (re-search-forward cperl-tags-hier-regexp-list nil t)
7319 (let* ((regexp (concat "^\\(" (mapconcat
7331 (cond ((and (string-match regexp (car elt))
7431 (defvar cperl-bad-style-regexp
7438 (defvar cperl-not-bad-style-regexp
7464 "If matches at the start of match found by `my-bad-c-style-regexp',
7503 (re-search-forward cperl-bad-style-regexp nil 'to-end))
7507 (looking-at cperl-not-bad-style-regexp)
7528 (defvar cperl-have-help-regexp
7599 (if (looking-at cperl-have-help-regexp)
7631 args-file regexp)
7649 (setq regexp (concat "^"
7651 (regexp-quote val)
7661 (if (re-search-forward regexp (point-max) t)
8069 quotemeta [ EXPR ] Quote regexp metacharacters.
8106 (defun cperl-beautify-regexp-piece (b e embed level)
8128 c1 (+ c (or cperl-regexp-indent-step cperl-indent-level)))
8177 cperl-regexp-scan
8227 (cperl-beautify-regexp-piece tmp m t level))
8233 (cperl-beautify-regexp-piece (point) m t level))
8236 (cperl-beautify-regexp-piece (point) m t level))
8238 (cperl-beautify-regexp-piece tmp m t level))))
8282 (error "Unknown code `%s' in a regexp"
8292 (defun cperl-make-regexp-x ()
8297 (error "I need to have a regexp marked!"))
8325 (defun cperl-beautify-regexp (&optional deep)
8327 We suppose that the regexp is scanned already."
8331 (goto-char (cperl-make-regexp-x))
8335 (cperl-beautify-regexp-piece b e nil deep))))
8338 "Goto start of an enclosing group in regexp.
8339 We suppose that the regexp is scanned already."
8341 (let ((limit (cperl-make-regexp-x)) done)
8353 "Find an enclosing group in regexp and contract it.
8355 We suppose that the regexp is scanned already."
8374 "Find an enclosing group in regexp and contract all the kids.
8376 We suppose that the regexp is scanned already."
8382 (goto-char (cperl-make-regexp-x))))
8395 "Find an enclosing group in regexp and beautify it.
8397 We suppose that the regexp is scanned already."
8405 (cperl-beautify-regexp-piece b e nil deep))))