Lines Matching +defs:file +defs:regexp
9 ;; This file is part of GNU Emacs.
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
694 ;; and not compiled into the .elc file. The value is negative on most
1000 (defalias 'search-forward-regexp (symbol-function 're-search-forward))
1001 (defalias 'search-backward-regexp (symbol-function 're-search-backward))
1361 ;; (defvar symbol-file-load-history-loaded nil
1362 ;; "Non-nil means we have loaded the file `fns-VERSION.el' in `exec-directory'.
1363 ;; That file records the part of `load-history' for preloaded files,
1366 ;; (defun load-symbol-file-load-history ()
1367 ;; "Load the file `fns-VERSION.el' in `exec-directory' if not already done.
1368 ;; That file records the part of `load-history' for preloaded files,
1370 ;; (unless symbol-file-load-history-loaded
1371 ;; (load (expand-file-name
1377 ;; ;; The file name fns-%s.el already has a .el extension.
1379 ;; (setq symbol-file-load-history-loaded t)))
1381 (defun symbol-file (symbol &optional type)
1383 The value is an absolute file name.
1384 It can also be nil, if the definition is not associated with any file.
1395 file)
1407 (setq file (car (car files)) files nil))
1409 file)))
1413 "Show the precise file name of Emacs library LIBRARY.
1415 to find the file that `\\[load-library] RET LIBRARY RET' would load.
1422 When called from a program, the file name is normaly returned as a
1424 and the file name is displayed in the echo area."
1426 'locate-file-completion
1430 (let ((file (locate-file library
1433 load-file-rep-suffixes))))
1435 (if file
1436 (message "Library is file %s" (abbreviate-file-name file))
1438 file))
1450 That function's doc string says which file created it."
1455 '(lambda () ,(concat "From " (or load-file-name "no file"))
1460 (defun load-history-regexp (file)
1461 "Form a regexp to find FILE in `load-history'.
1463 (if (file-name-absolute-p file)
1464 (setq file (file-truename file)))
1465 (concat (if (file-name-absolute-p file) "\\`" "\\(\\`\\|/\\)")
1466 (regexp-quote file)
1467 (if (file-name-extension file)
1469 ;; Note: regexp-opt can't be used here, since we need to call
1471 (concat "\\(" (mapconcat 'regexp-quote load-suffixes "\\|") "\\)?"))
1472 "\\(" (mapconcat 'regexp-quote jka-compr-load-suffixes "\\|")
1475 (defun load-history-filename-element (file-regexp)
1483 (not (string-match file-regexp (car load-elt)))))
1488 (defun eval-after-load (file form)
1492 If a matching file is loaded again, FORM will be evaluated again.
1494 If FILE is a string, it may be either an absolute or a relative file
1500 symbolic links. Only a file of this name \(see next paragraph regarding
1502 a file whose absolute true name ends in FILE will trigger evaluation.
1504 When FILE lacks an extension, a file name with any extension will trigger
1518 (let* ((regexp-or-feature
1519 (if (stringp file) (load-history-regexp file) file))
1520 (elt (assoc regexp-or-feature after-load-alist)))
1522 (setq elt (list regexp-or-feature))
1528 ;; Is there an already loaded file whose name (or `provide' name)
1530 (if (if (stringp file)
1531 (load-history-filename-element regexp-or-feature)
1532 (featurep file))
1535 (defun do-after-load-evaluation (abs-file)
1537 ABS-FILE, a string, should be the absolute true name of a file just loaded."
1539 a-l-element file-elements file-element form)
1544 (string-match (car a-l-element) abs-file))
1545 (while (setq a-l-element (cdr a-l-element)) ; discard the file name
1549 (defun eval-next-after-load (file)
1553 (eval-after-load file (read)))
1750 (replace-regexp-in-string "[ \t]*\\'"
1944 (name buffer-file-name)
1952 ;; defeat file locking... don't try this at home, kids!
1953 (setq buffer-file-name nil)
1988 (setq buffer-file-name name)
2057 (defvar buffer-file-type nil
2058 "Non-nil if the visited file is a binary file.
2100 :file FILE - read sound data from FILE. If FILE isn't an
2101 absolute file name, it is searched in `data-directory'.
2105 Exactly one of :file or :data must be present.
2326 (start-process name buffer shell-file-name shell-command-switch
2333 The program's input comes from file INFILE (nil means `/dev/null').
2340 t (mix it with ordinary output), or a file name string.
2356 (call-process shell-file-name
2409 (defmacro with-temp-file (file &rest body)
2414 (let ((temp-file (make-symbol "temp-file"))
2416 `(let ((,temp-file ,file)
2418 (get-buffer-create (generate-new-buffer-name " *temp file*"))))
2425 (write-region (point-min) (point-max) ,temp-file nil 0)))
2454 See also `with-temp-file' and `with-output-to-string'."
2640 NUM specifies which parenthesized expression in the last regexp.
2642 Zero means the entire text matched by the whole regexp or whole string.
2651 NUM specifies which parenthesized expression in the last regexp.
2653 Zero means the entire text matched by the whole regexp or whole string.
2662 (defun looking-back (regexp &optional limit greedy)
2675 (and (re-search-backward (concat "\\(?:" regexp "\\)\\=") limit t)
2684 (looking-at (concat "\\(?:" regexp "\\)\\'"))))
2688 (looking-at (concat "\\(?:" regexp "\\)\\'")))))
2691 (defun subregexp-context-p (regexp pos &optional start)
2693 A subregexp context is one where a sub-regexp can appear.
2699 ;; reuses the regexp-matcher's own parser, so it understands all the
2704 (string-match (substring regexp (or start 0) pos) "")
2706 (invalid-regexp
2728 ;; (string-match re-context-re (substring regexp (or start 0) pos))
2737 A regexp matching strings of whitespace. May be locale-dependent
2808 (defun replace-regexp-in-string (regexp rep string &optional
2826 (replace-regexp-in-string \"\\\\(foo\\\\).*\\\\'\" \"bar\" \" foo foo\" nil nil 1)
2843 (while (and (< start l) (string-match regexp string start))
2853 (string-match regexp (setq str (substring string mb me)))
2986 If SYNTAX is provided it's a regexp that describes the possible text of
2988 its text matches the regexp.
3231 (defvar version-regexp-alist
3258 REGEXP regexp used to match non-numeric part of a version string.
3276 | `version-regexp-alist' (which see).
3279 in `version-regexp-alist'.
3301 See documentation for `version-separator' and `version-regexp-alist'."
3326 (setq al version-regexp-alist)