(defvar el-search-success nil)
(defvar el-search-current-pattern nil)
+;;;###autoload
(defun el-search-pattern (pattern)
"Do incremental elisp search forward."
(interactive (list (if (and (eq this-command last-command)
(insert to)
(el-search--create-read-map 1)))))
+;;;###autoload
(defun el-search-query-replace (from to &optional mapping)
"Replace some occurrences of FROM pattern with evaluated TO."
(interactive (el-search-query-replace-read-args))
(goto-char other-end))
input))
+;;;###autoload
(defun el-search-search-from-isearch ()
(interactive)
(el-search-pattern
"Find pcase pattern: " nil (concat "'" (el-search--take-over-from-isearch)) t))
(setq this-command 'el-search-pattern))
+;;;###autoload
(defun el-search-replace-from-isearch ()
(interactive)
(let ((this-command 'el-search-query-replace))