From 4b11cb8a8e2bdaca912aacba041bf6eb67256911 Mon Sep 17 00:00:00 2001 From: Michael Heerdegen Date: Sun, 20 Mar 2016 14:22:19 +0100 Subject: [PATCH] Rename two functions --- packages/el-search/el-search.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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)) -- 2.39.2