;;; Source file: /usr/local/lib/jade/3.2/lisp/replace.jl
;;; Compiled by jsh@orcrist on Sun Oct 16 20:20:52 1994
;;; Jade 3.2

(provide (quote replace))

(defvar case-fold-search t)

(make-variable-buffer-local (quote case-fold-search))

(defun replace-all (from template) 76117 (interactive "sReplace regexp:
sReplace regexp %s with:") (jade-byte-code "DI0HIIF þ  I	Hû E" [match goto-buffer-start find-next-regexp from case-fold-search goto-char replace-regexp template] 7))

(defvar query-replace-keymap (make-keylist))

(bind-keys query-replace-keymap "SPC" (quote query-replace-replace) "y" (quote query-replace-replace) "BS" (quote query-replace-skip) "n" (quote query-replace-skip) "," (quote query-replace-replace-and-wait) "RET" (quote query-replace-exit) "ESC" (quote query-replace-exit) "q" (quote query-replace-exit) "." (quote query-replace-once-only) "!" (quote query-replace-rest) "^" (quote query-replace-backtrack) "Ctrl-r" (quote query-replace-edit) "Ctrl-w" (quote (progn (query-replace-delete) (query-replace-edit))) "?" (quote query-replace-help) "HELP" (quote query-replace-help) "Ctrl-h" (quote query-replace-help))

(defun query-replace-replace nil (interactive) (jade-byte-code "II	HIt" [goto-char replace-regexp query-replace-from query-replace-to case-fold-search query-replace] 7))

(defun query-replace-skip nil (interactive) (jade-byte-code "IIþ 	HIt" [looking-at query-replace-from case-fold-search goto-char match-end query-replace] 5))

(defun query-replace-replace-and-wait nil (interactive) (jade-byte-code "II	H	" [goto-char replace-regexp query-replace-from query-replace-to case-fold-search message query-replace-title] 7))

(defun query-replace-exit nil (interactive) (jade-byte-code "IF HIt" [query-replace-alive query-replace] 2))

(defun query-replace-once-only nil (interactive) (jade-byte-code "II	H" [goto-char replace-regexp query-replace-from query-replace-to case-fold-search query-replace-exit] 7))

(defun query-replace-rest nil (interactive) (jade-byte-code "II	HDI5IIF%þ &I	Hû HIF&HItE" [goto-char replace-regexp query-replace-from query-replace-to case-fold-search match find-next-regexp query-replace-alive query-replace] 7))

(defun query-replace-edit nil (interactive) (jade-byte-code "F!H
HDI²J56uvEH	It" [query-replace-old-kp keymap-path remove-hook unbound-key-hook query-replace-unbound-key-fun esc-means-meta buf (jade-byte-code "±F\"H
G±H" [buf (query-replace-keymap) keymap-path add-hook unbound-key-hook query-replace-unbound-key-fun] 4) recursive-edit query-replace] 3))

(defun query-replace-delete nil (interactive) (jade-byte-code "IIþ 
" [looking-at query-replace-from case-fold-search delete-area match-start match-end] 5))

(defun query-replace-backtrack nil (interactive) (jade-byte-code "Mü MF HL	û H	" [query-replace-trace goto-char beep message query-replace-title] 2))

(defun query-replace-unbound-key-fun nil (jade-byte-code "H	" [beep message query-replace-title] 2))

(defun query-replace (query-replace-from query-replace-to) 76300 (interactive "sQuery replace regexp: 
sQuery replace regexp %s with: ") (jade-byte-code "DIJI²II666	6
666
HF Huþ >IIF&þ Y	HKF&HsHû .vH	E" [keymap-path concat "Query replacing " query-replace-from " with " query-replace-to ": " match esc-means-meta buf query-replace-title query-replace-old-kp query-replace-alive query-replace-trace add-hook unbound-key-hook query-replace-unbound-key-fun (query-replace-keymap) (jade-byte-code "±F\"H
G±H" [buf query-replace-old-kp keymap-path remove-hook unbound-key-hook query-replace-unbound-key-fun] 4) find-next-regexp case-fold-search goto-char (jade-byte-code "	H" [message query-replace-title recursive-edit] 2) (quote query-replace) message "Done."] 9))