• Home
  • History
  • Annotate
  • Raw
  • Download
  • only in /macosx-10.10.1/emacs-93/emacs/lisp/

Lines Matching +defs:no +defs:match

343 If no element matches, the value is nil.
412 ;; If SEQ isn't a list, there's no need to copy SEQ because
971 to reread, so it now uses nil to mean `no event', instead of -1."
1003 (defalias 'store-match-data 'set-match-data)
1093 ;; Do nothing if LOCAL is t but this hook has no local binding.
1336 (if (and (stringp mode-name) (string-match "[^ ]+" mode-name))
1337 (concat " (" (match-string 0 mode-name) ")"))))
1455 '(lambda () ,(concat "From " (or load-file-name "no file"))
1480 (save-match-data
1483 (not (string-match file-regexp (car load-elt)))))
1505 evaluation. Otherwise, its extension must match FILE's. A further
1544 (string-match (car a-l-element) abs-file))
1552 FILE should be the name of a library, with no directory name."
1586 "Say no query needed if PROCESS is running when Emacs is exited.
1748 (if (string-match "\\(\\):[ \t]*\\'" prompt)
1749 (replace-match (format " (default %s)" default) t t prompt 1)
1778 Value is t if waited the full time with no input arriving, and nil otherwise.
1903 ;; Make sure there's no confusion.
1998 ;; FIXME: there's no easy way to find the
2074 If there is no plausible default, return nil."
2085 (goto-char (match-end 0))
2087 (buffer-substring-no-properties
2126 (if (or (null (string-match "[^\"]" argument))
2127 (< (match-end 0) (length argument)))
2128 (while (string-match "[\"]" argument start)
2129 (setq end (match-beginning 0)
2139 (while (string-match "[^-0-9a-zA-Z_./]" argument start)
2140 (setq end (match-beginning 0)
2278 (defun insert-buffer-substring-no-properties (buffer &optional start end)
2296 ;; there is no need to handle them here.
2384 window of some frame is no longer live at the end of BODY, that
2386 no longer live, then whatever window is selected at the end of
2493 (defmacro while-no-input (&rest body)
2494 "Execute BODY only as long as there's no pending input.
2496 and `while-no-input' returns t. Quitting makes it return nil.
2497 If BODY finishes, `while-no-input' returns whatever value BODY produced."
2514 functions can't be deferred, so in that case this macro has no effect.
2583 as an argument to `try-completion'), the function FUN is called with no
2615 ;;; Matching and match data.
2617 (defvar save-match-data-internal)
2619 ;; We use save-match-data-internal as the local variable because
2623 (defmacro save-match-data (&rest body)
2624 "Execute the BODY forms, restoring the global value of the match data.
2631 '((save-match-data-internal (match-data)))
2635 ;; as Lisp programs should not copy from save-match-data-internal.
2636 '(set-match-data save-match-data-internal 'evaporate))))
2638 (defun match-string (num &optional string)
2641 Value is nil if NUMth pair didn't match, or there were less than NUM pairs.
2643 STRING should be given if the last search was by `string-match' on STRING."
2644 (if (match-beginning num)
2646 (substring string (match-beginning num) (match-end num))
2647 (buffer-substring (match-beginning num) (match-end num)))))
2649 (defun match-string-no-properties (num &optional string)
2652 Value is nil if NUMth pair didn't match, or there were less than NUM pairs.
2654 STRING should be given if the last search was by `string-match' on STRING."
2655 (if (match-beginning num)
2657 (substring-no-properties string (match-beginning num)
2658 (match-end num))
2659 (buffer-substring-no-properties (match-beginning num)
2660 (match-end num)))))
2669 If GREEDY is non-nil, extend the match backwards as far as possible,
2671 of a match for REGEXP."
2700 ;; details of the syntax. A disadvantage is that it needs to match the
2704 (string-match (substring regexp (or start 0) pos) "")
2728 ;; (string-match re-context-re (substring regexp (or start 0) pos))
2738 \(as yet unimplemented). Should not match non-breaking spaces.
2750 The beginning and end of STRING, and each match for SEPARATORS, are
2770 Modifies the match data; use `save-match-data' if necessary."
2776 (while (and (string-match rexp string
2778 (= start (match-beginning 0))
2783 (if (or keep-nulls (< start (match-beginning 0)))
2785 (cons (substring string start (match-beginning 0))
2787 (setq start (match-end 0)))
2815 arguments with the same names of function `replace-match'. If START
2818 REP is either a string used as the NEWTEXT arg of `replace-match' or a
2820 match, and its value is used as the replacement text. When REP is called,
2821 the match-data are the result of matching REGEXP against a substring
2824 To replace only the first match (if any), make REGEXP match up to \\'
2831 ;; don't just call `replace-match' continually. Walk down the
2842 (save-match-data
2843 (while (and (< start l) (string-match regexp string start))
2844 (setq mb (match-beginning 0)
2845 me (match-end 0))
2850 ;; Set up match data for the substring for replacement;
2852 ;; match data directly in Lisp.
2853 (string-match regexp (setq str (substring string mb me)))
2855 (cons (replace-match (if (stringp rep)
2857 (funcall rep (match-string 0 str)))
2944 (save-match-data
2949 (when (< (match-end 0) cend)
2951 (setq end (min end (match-end 0)))
2953 (+ (match-end 0) margin)))
2954 (when (> (match-beginning 0) cbeg)
2956 (setq beg (max (match-beginning 0) beg))
2957 (move-overlay ol1 (- (match-beginning 0) margin)
3258 REGEXP regexp used to match non-numeric part of a version string.
3278 The NUMBER part is optional if SEPARATOR is a match for an element
3309 (save-match-data
3313 (while (and (setq s (string-match "[0-9]+" ver i))
3316 (setq lst (cons (string-to-number (substring ver i (match-end 0)))
3318 i (match-end 0))
3320 (when (and (setq s (string-match "[^0-9]+" ver i))
3322 (setq s (substring ver i (match-end 0))
3323 i (match-end 0))
3327 (while (and al (not (string-match (caar al) s)))
3406 ;; there is no element different of zero