Lines Matching defs:regexp
1438 (defvar cmpl-test-regexp "")
1439 ;; "The current regexp used by completion-search-next.
1465 cmpl-test-regexp (concat (regexp-quote string) "."))
1528 (and (not (eq 0 (string-match cmpl-test-regexp
1791 ;; We tried using forward-lines and explicit searches but the regexp technique
1794 (defconst *lisp-def-regexp*
1796 "A regexp that searches for Lisp definition form.")
1799 ;; (and (string-match *lisp-def-regexp* "\n(defun foo") (match-end 0)) -> 8
1800 ;; (and (string-match *lisp-def-regexp* "\n(si:def foo") (match-end 0)) -> 9
1801 ;; (and (string-match *lisp-def-regexp* "\n(def-bar foo")(match-end 0)) -> 10
1802 ;; (and (string-match *lisp-def-regexp* "\n(defun (foo") (match-end 0)) -> 9
1814 (re-search-forward *lisp-def-regexp*)
1860 (defconst *c-def-regexp*
1869 "A regexp that searches for a definition form.")
1871 ;(defconst *c-cont-regexp*
1873 ; "This regexp should be used in a looking-at to parse for lists of variables.")
1875 ;(defconst *c-struct-regexp*
1877 ; "This regexp should be used to test whether a symbol follows a structure definition.")
1879 ;(defun test-c-def-regexp (regexp string)
1880 ; (and (eq 0 (string-match regexp string)) (match-end 0))
1884 ;; (test-c-def-regexp *c-def-regexp* "\n#define foo") -> 10 (9)
1885 ;; (test-c-def-regexp *c-def-regexp* "\nfoo (x, y) {") -> 6 (6)
1886 ;; (test-c-def-regexp *c-def-regexp* "\nint foo (x, y)") -> 10 (5)
1887 ;; (test-c-def-regexp *c-def-regexp* "\n int foo (x, y)") -> nil
1888 ;; (test-c-def-regexp *c-cont-regexp* "oo, bar") -> 4
1889 ;; (test-c-def-regexp *c-cont-regexp* "oo, *bar") -> 5
1890 ;; (test-c-def-regexp *c-cont-regexp* "a [5][6], bar") -> 10
1891 ;; (test-c-def-regexp *c-cont-regexp* "oo(x,y)") -> nil
1892 ;; (test-c-def-regexp *c-cont-regexp* "a [6] ,\t bar") -> 9
1893 ;; (test-c-def-regexp *c-cont-regexp* "oo {trout =1} my_carp;") -> 14
1894 ;; (test-c-def-regexp *c-cont-regexp* "truct_p complex foon") -> nil
1912 (re-search-forward *c-def-regexp*)