Lines Matching defs:regexp
1421 (defvar ctext-non-standard-encodings-regexp
1447 (while (re-search-forward ctext-non-standard-encodings-regexp
1602 :type '(repeat (cons (regexp :tag "File name regexp")
1605 (defcustom auto-coding-regexp-alist
1619 :type '(repeat (cons (regexp :tag "Regexp")
1622 (defun auto-coding-regexp-alist-lookup (from to)
1623 "Lookup `auto-coding-regexp-alist' for the contents of the current buffer.
1628 (let ((alist auto-coding-regexp-alist)
1631 (let ((regexp (car (car alist))))
1633 (setq regexp (string-to-multibyte regexp)))
1634 (if (re-search-forward regexp to t)
1686 `auto-coding-regexp-alist'. If no match is found, it checks for a
1696 `auto-coding-regexp-alist', `coding:', or `auto-coding-functions'
1704 ;; Try using `auto-coding-regexp-alist'.
1705 (let ((coding-system (auto-coding-regexp-alist-lookup (point)
1708 (cons coding-system 'auto-coding-regexp-alist)))
1754 ;; is just "\r" and we can't use "^" nor "$" in regexp.
1764 (let* ((prefix (regexp-quote (match-string 1)))
1765 (suffix (regexp-quote (match-string 2)))
1769 ;; N.B. without the \n below, the regexp can
1958 (defun modify-coding-system-alist (target-type regexp coding-system)
1979 (or (stringp regexp)
1980 (and (eq target-type 'network) (integerp regexp))
1981 (error "Invalid regular expression: %s" regexp))
1990 (let ((slot (assoc regexp file-coding-system-alist)))
1994 (cons (cons regexp coding-system)
1997 (let ((slot (assoc regexp process-coding-system-alist)))
2001 (cons (cons regexp coding-system)
2004 (let ((slot (assoc regexp network-coding-system-alist)))
2008 (cons (cons regexp coding-system)