Lines Matching +defs:replace +defs:regexp
45 ;; dabbrev-case-replace nil t
48 ;; (set (make-local-variable 'dabbrev-case-replace) nil)
119 (defcustom dabbrev-abbrev-skip-leading-regexp nil
127 :type '(choice regexp
158 (defcustom dabbrev-case-distinction 'case-replace
162 A value of `case-replace' means distinguish them if `case-replace' is nil.
168 (const :tag "based on `case-replace'" case-replace)
173 (defcustom dabbrev-case-replace 'case-replace
177 A value of `case-replace' means preserve it if `case-replace' is nil.
184 (const :tag "based on `case-replace'" case-replace)
188 (defcustom dabbrev-abbrev-char-regexp nil
190 This regexp will be surrounded with \\\\( ... \\\\) when actually used.
210 regexp)
236 :type '(repeat regexp)
332 ;; The regexp for recognizing a character in an abbreviation.
333 (defvar dabbrev--abbrev-char-regexp nil)
407 (not dabbrev-case-replace))
466 no argument is given, replace the previously-made expansion
472 See also `dabbrev-abbrev-char-regexp' and \\[dabbrev-completion]."
518 (concat "\\(?:" dabbrev--abbrev-char-regexp "\\)+"))
602 (while (and (looking-at dabbrev--abbrev-char-regexp)
607 (or (looking-at dabbrev--abbrev-char-regexp)
609 (and dabbrev-abbrev-skip-leading-regexp
610 (while (looking-at dabbrev-abbrev-skip-leading-regexp)
630 (or dabbrev-abbrev-char-regexp
633 (if (re-search-backward (or dabbrev-abbrev-char-regexp
656 dabbrev--abbrev-char-regexp (or dabbrev-abbrev-char-regexp
694 (if (eq dabbrev-case-distinction 'case-replace)
695 case-replace
835 (defun dabbrev--safe-replace-match (string &optional fixedcase literal)
838 (picture-replace-match string fixedcase literal))
839 (replace-match string fixedcase literal)))
852 (let ((use-case-replace (and (if (eq dabbrev-case-fold-search 'case-fold-search)
857 (if (eq dabbrev-case-replace 'case-replace)
858 case-replace
859 dabbrev-case-replace))))
868 (setq use-case-replace nil))
893 (setq use-case-replace nil)))
901 (setq use-case-replace nil))
903 (if use-case-replace
911 (and use-case-replace
922 (setq expansion (replace-match " " nil nil expansion)))))
934 (dabbrev--safe-replace-match expansion
935 (not use-case-replace)
961 (let ((pattern1 (concat (regexp-quote abbrev)
962 "\\(" dabbrev--abbrev-char-regexp "\\)"))
963 (pattern2 (concat (regexp-quote abbrev)
964 "\\(\\(" dabbrev--abbrev-char-regexp "\\)+\\)"))