Make el-search-pattern accept an optional NO-ERROR arg

diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index de219de9a1ecc6294dd44c325f1d4d7737b6cf08..4afcd910782bfc8ca010c4e73c289b90cd1c4e60 100644 (file)
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -937,7 +937,7 @@ You need `diff-hl-mode' turned on, provided by the library
 ;;;; Core functions
 
 ;;;###autoload
 ;;;; Core functions
 
 ;;;###autoload

-(defun el-search-pattern (pattern)
+(defun el-search-pattern (pattern &optional no-error)

   "Start new or resume last elisp search.
 
 Search current buffer for expressions that are matched by `pcase'
   "Start new or resume last elisp search.
 
 Search current buffer for expressions that are matched by `pcase'


@@ -964,7 +964,7 @@ The following additional pattern types are currently defined:"
                            (error "Please don't forget the quote when searching for a symbol"))
                          (el-search--wrap-pattern pattern)))))
   (if (not (called-interactively-p 'any))
                            (error "Please don't forget the quote when searching for a symbol"))
                          (el-search--wrap-pattern pattern)))))
   (if (not (called-interactively-p 'any))

-      (el-search--search-pattern pattern)
+      (el-search--search-pattern pattern no-error)

     (setq this-command 'el-search-pattern) ;in case we come from isearch
     (setq el-search-current-pattern pattern)
     (let ((opoint (point)))
     (setq this-command 'el-search-pattern) ;in case we come from isearch
     (setq el-search-current-pattern pattern)
     (let ((opoint (point)))