Lines Matching defs:regexp
383 (defvar sort-regexp-fields-regexp)
384 (defvar sort-regexp-record-end)
386 ;; Move to the beginning of the next match for record-regexp,
387 ;; and set sort-regexp-record-end to the end of that match.
390 (defun sort-regexp-fields-next-record ()
392 (and (re-search-forward sort-regexp-fields-regexp nil 'move)
393 (setq sort-regexp-record-end (match-end 0))
394 (if (= sort-regexp-record-end oldpos)
397 (re-search-forward sort-regexp-fields-regexp nil 'move)
398 (setq sort-regexp-record-end (match-end 0)))
403 (defun sort-regexp-fields (reverse record-regexp key-regexp beg end)
428 (cond ((or (equal key-regexp "") (equal key-regexp "\\&"))
429 (setq key-regexp 0))
430 ((string-match "\\`\\\\[1-9]\\'" key-regexp)
431 (setq key-regexp (- (aref key-regexp 1) ?0))))
436 (let (sort-regexp-record-end
437 (sort-regexp-fields-regexp record-regexp))
438 (re-search-forward sort-regexp-fields-regexp nil t)
439 (setq sort-regexp-record-end (point))
442 'sort-regexp-fields-next-record
444 (goto-char sort-regexp-record-end)))
447 (cond ((numberp key-regexp)
448 (setq n key-regexp))
450 key-regexp sort-regexp-record-end t)