branch: externals/consult
commit 16c8200b6c0a719342bb34313ffd27927e96d51e
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
func-arity may return nil
---
consult.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/consult.el b/consult.el
index e3f13b4..94d1280 100644
--- a/consult.el
+++ b/consult.el
@@ -631,7 +631,7 @@ The line beginning/ending BEG/END is bound in BODY."
(unless (get-text-property pos 'invisible string)
(setq width (+ width
;; bug#47712: Emacs 28 can compute
`string-width' of substrings
- (consult--static-if (= 3 (cdr (func-arity
#'string-width)))
+ (consult--static-if (eq 3 (cdr (func-arity
#'string-width)))
(string-width string pos nexti)
(string-width
;; Avoid allocation for the full string.
