Lines Matching defs:regexp
1178 (defun list-faces-display (&optional regexp)
1187 (read-string "List faces matching regexp: "))))
1188 (let ((all-faces (zerop (length regexp)))
1198 (when (or all-faces (string-match regexp s))
1203 (error "No faces matching \"%s\"" regexp))
1226 (setq help-xref-stack-item `(list-faces-display ,regexp))
2236 (defvar x-font-regexp nil)
2237 (defvar x-font-regexp-head nil)
2238 (defvar x-font-regexp-weight nil)
2239 (defvar x-font-regexp-slant nil)
2241 (defconst x-font-regexp-weight-subnum 1)
2242 (defconst x-font-regexp-slant-subnum 2)
2243 (defconst x-font-regexp-swidth-subnum 3)
2244 (defconst x-font-regexp-adstyle-subnum 4)
2270 (setq x-font-regexp
2276 (setq x-font-regexp-head
2279 (setq x-font-regexp-slant (concat - slant -))
2280 (setq x-font-regexp-weight (concat - weight -))
2316 (cond ((string-match x-font-regexp font)
2318 (match-beginning x-font-regexp-weight-subnum))
2320 (substring font (match-end x-font-regexp-weight-subnum)
2321 (match-beginning x-font-regexp-adstyle-subnum))
2326 (substring font (match-end x-font-regexp-adstyle-subnum))))
2327 ((string-match x-font-regexp-head font)
2330 ((string-match x-font-regexp-weight font)
2337 (cond ((string-match x-font-regexp font)
2339 (match-beginning x-font-regexp-slant-subnum))
2341 (substring font (match-end x-font-regexp-slant-subnum)
2342 (match-beginning x-font-regexp-adstyle-subnum))
2347 (substring font (match-end x-font-regexp-adstyle-subnum))))
2348 ((string-match x-font-regexp-head font)
2351 ((string-match x-font-regexp-slant font)