[elpa] master 3ffeb9f: Fix el-search's to register save when no search started yet

[Michael Heerdegen]

branch: master
commit 3ffeb9f2d343adc68f2ea5ee392c4c752396c660
Author: Michael Heerdegen <address@hidden>
Commit: Michael Heerdegen <address@hidden>

    Fix el-search's to register save when no search started yet
    
    * packages/el-search/el-search.el: (el-search-to-register)
    (el-search-clone-to-register): Throw a `user-error' when value of
    `el-search--current-search' is nil.
---
 packages/el-search/el-search.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index bc60b95..0cc403c 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -3006,7 +3006,9 @@ related user options."
   "Prompt for a register and save the EL-SEARCH-OBJECT to it.
 In an interactive call or when EL-SEARCH-OBJECT is nil, the
 current search is used."
-  (interactive (list (register-read-with-preview "Save current search to 
register: ")))
+  (interactive (list (if el-search--current-search
+                         (register-read-with-preview "Save current search to 
register: ")
+                       (user-error "No search has been started yet"))))
   (set-register register (or el-search-object el-search--current-search)))
 
 (defun el-search-clone-to-register (register &optional el-search-object)
@@ -3016,7 +3018,9 @@ current search is used.
 
 This is similar to `el-search-to-register' but what is saved is a
 clone with an individual state."
-  (interactive (list (register-read-with-preview "Save clone of current search 
to register: ")))
+  (interactive (list (if el-search--current-search
+                         (register-read-with-preview "Save clone of current 
search to register: ")
+                       (user-error "No search has been started yet"))))
   (set-register register (copy-el-search-object (or el-search-object 
el-search--current-search))))
 
 (cl-defmethod register-val-jump-to ((val el-search-object) _arg)