Lines Matching +defs:replace +defs:regexp
81 ;; (setq ffap-url-regexp nil) ; disable URL features in ffap
82 ;; (setq ffap-shell-prompt-regexp nil) ; disable shell prompt stripping
100 ;; * let "/dir/file#key" jump to key (tag or regexp) in /dir/file
106 ;; * regexp options for ffap-string-at-point, like font-lock (MCOOK)
107 ;; * v19: could replace `ffap-locate-file' with a quieter `locate-library'
142 (defcustom ffap-shell-prompt-regexp
147 "Paths matching this regexp are stripped off the shell prompt
151 regexp)
154 (defcustom ffap-ftp-regexp
158 "*File names matching this regexp are treated as remote ffap.
162 regexp)
172 This is ignored if `ffap-ftp-regexp' is nil."
183 (defcustom ffap-rfs-regexp
188 :type 'regexp
191 (defvar ffap-url-regexp
193 ;; This regexp is not exhaustive, it just matches common cases.
224 "*A regexp matching filename wildcard characters, or nil.
239 ;; regexp -- probably not useful
314 (defcustom ffap-next-regexp
316 ;; (and ffap-url-regexp (string-match "\\\\`" ffap-url-regexp)
317 ;; (concat "\\<" (substring ffap-url-regexp 2))))
319 ;; It pays to put a big fancy regexp here, since ffap-guesser is
320 ;; much more time-consuming than regexp searching:
323 :type 'regexp
337 Only considers strings that match `ffap-next-regexp'."
342 ffap-next-regexp lim 'move)
374 "Like `ffap-next', but search with `ffap-url-regexp'."
376 (let ((ffap-next-regexp ffap-url-regexp))
491 (defun ffap-replace-file-component (fullname name)
492 "In remote FULLNAME, replace path with NAME. May return nil."
498 efs-replace-path-component
499 ange-ftp-replace-path-component
500 ange-ftp-replace-name-component
503 (fset 'ffap-replace-file-component found)
505 ;; (ffap-replace-file-component "/who@foo.com:/whatever" "/new")
544 (or (and ffap-ftp-regexp
545 (string-match ffap-ftp-regexp filename)
549 ;; (replace-match "/" nil nil filename)
553 (and ffap-rfs-regexp
554 (string-match ffap-rfs-regexp filename)
577 ((not (and ffap-url-regexp (stringp mach))) nil)
585 (ffap-ftp-regexp (ffap-host-to-filename mach))
588 (defvar ffap-newsgroup-regexp "^[[:lower:]]+\\.[-+[:lower:]_0-9.]+$"
597 (string-match ffap-newsgroup-regexp string)
624 (and ffap-url-regexp (string-match ffap-url-regexp string)
630 "Return URL as a local file, or nil. Ignores `ffap-url-regexp'."
634 "Return URL as a remote file, or nil. Ignores `ffap-url-regexp'."
646 ((and ffap-url-unwrap-remote ffap-ftp-regexp
744 ;; The current version of locate-library could almost replace this,
820 KEY is a string, it should matches NAME as a regexp.
1069 ffap-url-regexp
1101 (defvar ffap-gopher-regexp
1111 (if (looking-at ffap-gopher-regexp)
1113 (while (and (looking-at ffap-gopher-regexp) (not (bobp)))
1115 (or (looking-at ffap-gopher-regexp) (forward-line 1))
1117 (while (looking-at ffap-gopher-regexp)
1136 (defvar ffap-ftp-sans-slash-regexp
1138 ffap-ftp-regexp
1140 ;; Icky regexp avoids: default: 123: foo::bar cs:pub
1177 ;; if the ffap-shell-prompt-regexp is non-nil.
1178 ((and ffap-shell-prompt-regexp
1179 (not abs) (string-match ffap-shell-prompt-regexp name)
1210 ffap-ftp-sans-slash-regexp
1211 (string-match ffap-ftp-sans-slash-regexp oname)
1216 ((let* (ffap-rfs-regexp ; suppress
1233 (ffap-replace-file-component
1236 (ffap-replace-file-component remote-dir name))))))
1259 ;; The solution here is to replace read-file-name-internal with
1381 (or (and ffap-url-regexp
1395 (if ffap-url-regexp "Find file or URL: " "Find file: ")
1405 If `ffap-url-regexp' is not nil, the FILENAME may also be an URL.
1451 (defvar ffap-menu-regexp nil
1452 "*If non-nil, overrides `ffap-next-regexp' during `ffap-menu'.
1473 a rebuild. Searches with `ffap-menu-regexp'."
1486 (if ffap-url-regexp "Find file or URL" "Find file")
1543 "Search buffer for `ffap-menu-regexp' to build `ffap-menu-alist'.
1546 (let ((ffap-next-regexp (or ffap-menu-regexp ffap-next-regexp))
1819 (if ffap-url-regexp "Dired file or URL: " "Dired file: ")