[elpa] externals/counsel bb7965a 1/2: Demote read-extended-command-predicate errors

[Basil L. Contovounesios]

branch: externals/counsel
commit bb7965aa645982c9a80bd9e772538a210b645942
Author: Basil L. Contovounesios <contovob@tcd.ie>
Commit: Basil L. Contovounesios <contovob@tcd.ie>

    Demote read-extended-command-predicate errors
    
    This matches a recent upstream change in the predicate used by
    read-extended-command:
    
    Demote read-extended-command-predicate errors
    8bf186b229 2021-03-27 20:05:10 +0000
    
https://git.sv.gnu.org/cgit/emacs.git/commit/?id=8bf186b2297dc0aeba76e8e743dec7efa6a568e4
    
    * counsel.el (counsel--M-x-make-predicate): Don't let
    read-extended-command-predicate errors break counsel-M-x.
---
 counsel.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/counsel.el b/counsel.el
index 6c85a28..e561517 100644
--- a/counsel.el
+++ b/counsel.el
@@ -894,9 +894,12 @@ CAND is a string returned by `counsel--M-x-externs'."
       (and (commandp sym)
            (not (get sym 'byte-obsolete-info))
            (not (get sym 'no-counsel-M-x))
-           (or (not (bound-and-true-p read-extended-command-predicate))
-               (and (functionp read-extended-command-predicate)
-                    (funcall read-extended-command-predicate sym buf)))))))
+           (cond ((not (bound-and-true-p read-extended-command-predicate)))
+                 ((functionp read-extended-command-predicate)
+                  (condition-case-unless-debug err
+                      (funcall read-extended-command-predicate sym buf)
+                    (error (message "read-extended-command-predicate: %s: %s"
+                                    sym (error-message-string err))))))))))
 
 (defun counsel--M-x-prompt ()
   "String for `M-x' plus the string representation of `current-prefix-arg'."