Lines Matching defs:regexp
102 (defcustom sc-citation-leader-regexp "[ \t]*"
105 :type 'regexp
110 (defcustom sc-citation-root-regexp "[-._[:alnum:]]*"
113 `sc-citation-nonnested-root-regexp'."
114 :type 'regexp
117 (defcustom sc-citation-nonnested-root-regexp "[-._[:alnum:]]+"
120 related to `sc-citation-root-regexp' but whereas that variable
123 :type 'regexp
126 (defcustom sc-citation-delimiter-regexp "[>]+"
129 :type 'regexp
132 (defcustom sc-citation-separator-regexp "[ \t]*"
135 :type 'regexp
154 :type '(repeat (list symbol (repeat (cons regexp
163 :type '(repeat (list symbol (repeat (cons regexp
172 :type '(repeat (list symbol (repeat (cons regexp
183 (setq sc-tmp-nested-regexp (sc-cite-regexp "")
184 sc-tmp-nonnested-regexp (sc-cite-regexp)
185 sc-tmp-dumb-regexp
187 (sc-cite-regexp "")
189 (sc-cite-regexp sc-citation-nonnested-root-regexp))
203 ;; this regexp catches nested citations in which the author cited
205 (sc-tmp-dumb-regexp (sc-cite-coerce-dumb-citer))
207 (sc-tmp-nested-regexp (sc-add-citation-level))
209 (sc-tmp-nonnested-regexp (sc-cite-coerce-cited-line))
228 ((sc-cite-regexp) (sc-uncite-line))
241 ((sc-cite-regexp) (sc-recite-line (sc-cite-regexp)))
346 :type '(repeat (cons regexp (choice (const last) (const any)
372 :type '(repeat regexp)
434 (repeat (cons regexp
496 (defcustom sc-titlecue-regexp "\\s +-+\\s +"
500 regexp)
525 (defvar sc-tmp-nested-regexp nil
526 "Temporary regexp describing nested citations.")
527 (defvar sc-tmp-nonnested-regexp nil
528 "Temporary regexp describing non-nested citations.")
529 (defvar sc-tmp-dumb-regexp nil
530 "Temp regexp describing non-nested citation cited with a nesting citer.")
682 "Find a match in the info alist that matches a regexp in ALIST."
692 (regexp (car ml-elem))
694 (if (string-match regexp infoval)
936 (if (string-match (concat "\\`\"?" (regexp-quote author)
966 (or (string-match sc-titlecue-regexp string sos) eos)
1033 (= start (or (string-match sc-citation-leader-regexp string start) -1))
1035 (= start (or (string-match sc-citation-root-regexp string start) 1))
1038 (= start (or (string-match sc-citation-delimiter-regexp string start) -1))
1040 (= start (or (string-match sc-citation-separator-regexp string start) -1))
1056 (let ((regexp (car filter))
1058 (if (and (string-match regexp name)
1311 (defun sc-cite-regexp (&optional root-regexp)
1312 "Return a regexp describing a Supercited line.
1313 The regexp is the concatenation of `sc-citation-leader-regexp',
1314 `sc-citation-root-regexp', `sc-citation-delimiter-regexp', and
1315 `sc-citation-separator-regexp'. If optional ROOT-REGEXP is supplied,
1316 use it instead of `sc-citation-root-regexp'."
1317 (concat sc-citation-leader-regexp
1318 (or root-regexp sc-citation-root-regexp)
1319 sc-citation-delimiter-regexp
1320 sc-citation-separator-regexp))
1335 (if elt (setcar elt (sc-cite-regexp))
1372 (regexp (sc-cite-regexp attribution))
1375 (looking-at regexp))
1403 (= start (or (string-match sc-citation-leader-regexp string start) -1))
1405 (= start (or (string-match sc-citation-delimiter-regexp string start) -1))
1408 (= start (or (string-match sc-citation-separator-regexp string start) -1))
1417 (if (looking-at (sc-cite-regexp ""))
1436 (let ((cited (looking-at (sc-cite-regexp))))
1441 (defun sc-recite-line (regexp)
1443 (let ((cited (looking-at (concat "^" regexp)))
1997 (if (looking-at (sc-cite-regexp))
2016 (if (or (not (looking-at (sc-cite-regexp)))
2056 'sc-citation-leader-regexp
2057 'sc-citation-root-regexp
2058 'sc-citation-nonnested-root-regexp
2059 'sc-citation-delimiter-regexp
2060 'sc-citation-separator-regexp
2079 'sc-titlecue-regexp