Lines Matching defs:regexp
206 (defvar thing-at-point-url-path-regexp
210 (defvar thing-at-point-short-url-regexp
211 (concat "[-A-Za-z0-9.]+" thing-at-point-url-path-regexp)
214 ``thing-at-point-url-regexp''.")
231 (defvar thing-at-point-url-regexp
233 thing-at-point-url-path-regexp)
236 (defvar thing-at-point-markedup-url-regexp
244 thing-at-point-markedup-url-regexp))) ;; (url "") short
246 (thing-at-point-looking-at thing-at-point-url-regexp)
249 ;; thing-at-point-short-url-regexp))
269 thing-at-point-markedup-url-regexp))
270 (thing-at-point-looking-at thing-at-point-url-regexp)
273 thing-at-point-short-url-regexp)))
296 ;; This should work for almost any regexp wherever we are in the
297 ;; match. To do a perfect job for any arbitrary regexp would mean
302 (defun thing-at-point-looking-at (regexp)
308 (and (looking-at regexp)
313 (re-search-forward regexp nil 'limit)
314 (while (and (re-search-backward regexp nil t)
316 (and (looking-at regexp) ; Extend match-end past search start
324 (progn (backward-char 1) (looking-at regexp))
328 (looking-at regexp)))))