Lines Matching refs:pat
1426 (defun tpu-search-internal (pat &optional quiet)
1429 (if (not (string= "" pat)) pat (tpu-regexp-prompt "Search: ")))
1469 (let ((pat (copy-sequence string)) (case-fold-search nil) (pos 0))
1470 (while (setq pos (string-match "\\\\\\\\" pat)) (aset pat (+ 1 pos) ?.))
1471 (while (setq pos (string-match "\\\\B" pat)) (aset pat (+ 1 pos) ?.))
1472 (while (setq pos (string-match "\\\\W" pat)) (aset pat (+ 1 pos) ?.))
1473 (while (setq pos (string-match "\\\\S." pat))
1474 (aset pat (+ 1 pos) ?.) (aset pat (+ 2 pos) ?.))
1475 (string-equal pat (downcase pat)))