Fix 'Wrong type argument: commandp, +default/search-project'

Regression from #3656
This commit is contained in:
Henrik Lissner 2020-07-31 02:41:44 -04:00
parent 85974d381e
commit f82775fead
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -21,13 +21,16 @@ If prefix ARG is set, prompt for a directory to search from."
(+default/search-cwd 'other)) (+default/search-cwd 'other))
;;;###autoload ;;;###autoload
(defun +default/search-buffer (&optional arg) (defun +default/search-buffer ()
(interactive "P") "Conduct a text search on the current buffer.
If a selection is active, pre-fill the prompt with it."
(interactive)
(call-interactively
(if (region-active-p) (if (region-active-p)
(call-interactively #'swiper-isearch-thing-at-point) #'swiper-isearch-thing-at-point
(call-interactively #'swiper-isearch))) #'swiper-isearch)))
;;;autoload ;;;###autoload
(defun +default/search-project (&optional arg) (defun +default/search-project (&optional arg)
"Conduct a text search in the current project root. "Conduct a text search in the current project root.
If prefix ARG is set, prompt for a known project to search from." If prefix ARG is set, prompt for a known project to search from."