Lines Matching +defs:replace +defs:match
36 ;; bindings which closely match those found in EDT. Support is
105 ;; the Emacs function `query-replace'. The binding of
106 ;; `query-replace' has been moved to GOLD-/. If you prefer to
107 ;; restore `query-replace' to GOLD-Enter, then use an EDT user
282 (defvar edt-match-beginning-mark (make-marker)
285 (defvar edt-match-end-mark (make-marker)
330 (and edt-emacs19-p (string-match "XEmacs" emacs-version))
348 (replace-in-string (x-server-vendor) "[ /]" "-")
717 (edt-set-match)
747 (edt-set-match))
785 (edt-set-match)
817 (edt-set-match)
1018 (defun edt-replace ()
1021 (if (edt-check-match)
1022 (replace-match (car kill-ring-yank-pointer))
1039 to repeat the substitution. A negative argument means replace all occurrences
1042 (cond ((or edt-select-mode (edt-check-match))
1043 (while (and (not (= num 0)) (or edt-select-mode (edt-check-match)))
1044 (edt-replace)
1050 (defun edt-set-match nil
1051 "Set markers at match beginning and end."
1054 (setq edt-match-beginning-mark (copy-marker (1+ (match-beginning 0))))
1055 (setq edt-match-end-mark (copy-marker (match-end 0))))
1057 (defun edt-unset-match nil
1058 "Unset match beginning and end markers."
1059 (set-marker edt-match-beginning-mark nil)
1060 (set-marker edt-match-end-mark nil))
1062 (defun edt-match-beginning nil
1063 "Return the location of the last match beginning."
1064 (1- (marker-position edt-match-beginning-mark)))
1066 (defun edt-match-end nil
1067 "Return the location of the last match end."
1068 (marker-position edt-match-end-mark))
1070 (defun edt-check-match nil
1071 "Return t if point is between edt-match markers.
1072 Otherwise sets the edt-match markers to nil and returns nil."
1079 (equal (marker-buffer edt-match-beginning-mark) (current-buffer))
1080 (>= (point) (1- (marker-position edt-match-beginning-mark)))
1082 (< (point) (marker-position edt-match-end-mark))
1083 (and (= (1- (marker-position edt-match-beginning-mark))
1084 (marker-position edt-match-end-mark))
1085 (= (marker-position edt-match-end-mark) (point))))) t)
1087 (edt-unset-match) nil)))
1089 (defun edt-show-match-markers nil
1090 "Show the values of the match markers."
1092 (if (markerp edt-match-beginning-mark)
1093 (let ((beg (marker-position edt-match-beginning-mark)))
1096 (marker-position edt-match-end-mark)
1097 (marker-buffer edt-match-end-mark)
1937 If overwrite mode is active, existing text is replace with text from register."
2100 (if (string-match "/$" (car search-list)) "" "/")
2145 (if (setq hyphend (string-match "[-_][^-_]+$" term))
2386 (edt-bind-function-key-default "KP9" 'edt-append 'edt-replace)
2564 (edt-bind-gold-key-default "/" 'query-replace)