(defvar last-search "") (defvar last-replace "") (defvar last-wordonly nil) (defvar last-noask nil) (defun mqr-read-default (prompt old) (byte-code " #!\" )" [new prompt old read-string format "%s [%s]: " string-equal ""] 5)) (defun my-query-replace nil (interactive) (byte-code "Lj\" \"\" \" \" \" \"8 !!O!9   N eb!-" [last-search last-replace options noask global wordonly count nil last-wordonly last-noask mqr-read-default "Search for" "Replace with" "Options" "" string-match "n" "g" "w" "[0-9]+" string-to-int match-beginning 0 match-end push-mark my-do-replace] 13)) (defun my-do-replace (count) (interactive "p") (byte-code "" [nil quit (byte-code "  ? V !`` GZb %!?-b.ƅ6ƈ C!ǂ!r=Z҉=t=t=t=?}ƈF=ǂ=Ƃ=ljǂ=\")`\" cb S*" [p noask last-noask count last-search last-wordonly nil t ch last-replace 0 search-forward looking-at "\\b" sit-for message "Replace? (y/n/q/g) " 32 121 110 113 103 throw quit delete-region] 9)] 2))