From: Michael Heerdegen Date: Sun, 20 Mar 2016 13:22:19 +0000 (+0100) Subject: Rename two functions X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/4b11cb8a8e2bdaca912aacba041bf6eb67256911?hp=99e8724cd9ce1a7e8f7596e15fc9bb76d7c3e365 Rename two functions --- diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el index 1a4ca5a4f..db57a5e12 100644 --- a/packages/el-search/el-search.el +++ b/packages/el-search/el-search.el @@ -947,7 +947,7 @@ s Toggle splicing mode. When splicing mode is Hit any key to proceed." "Help string for ? in `el-search-query-replace'.") -(defun el-search-search-and-replace-pattern (pattern replacement &optional splice to-input-string) +(defun el-search--search-and-replace-pattern (pattern replacement &optional splice to-input-string) (let ((replace-all nil) (nbr-replaced 0) (nbr-skipped 0) (done nil) (el-search-keep-hl t) (opoint (point)) (get-replacement (el-search--matcher pattern replacement)) @@ -1048,7 +1048,7 @@ Hit any key to proceed." (if (zerop nbr-skipped) "" (format " (%d skipped)" nbr-skipped))))) -(defun el-search-query-replace-read-args () +(defun el-search-query-replace--read-args () (barf-if-buffer-read-only) (let* ((from (el-search--read-pattern "Query replace pattern: ")) (to (let ((el-search--initial-mb-contents nil)) @@ -1065,11 +1065,11 @@ produce a replacement expression. As each match is found, the user must type a character saying what to do with it. For directions, type ? at that time." - (interactive (el-search-query-replace-read-args)) + (interactive (el-search-query-replace--read-args)) (setq this-command 'el-search-query-replace) ;in case we come from isearch (setq el-search-current-pattern from-pattern) (barf-if-buffer-read-only) - (el-search-search-and-replace-pattern from-pattern to-expr nil textual-to)) + (el-search--search-and-replace-pattern from-pattern to-expr nil textual-to)) (defun el-search--take-over-from-isearch (&optional goto-left-end) (let ((other-end (and goto-left-end isearch-other-end))