[elpa] externals/corfu b9bc65d967 2/3: corfu-popupinfo: Fix todo

[ELPA Syncer]

branch: externals/corfu
commit b9bc65d967faff7eddc3155780d3848cd872512a
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    corfu-popupinfo: Fix todo
---
 extensions/corfu-info.el      | 2 +-
 extensions/corfu-popupinfo.el | 7 ++-----
 2 files changed, 3 insertions(+), 6 deletions(-)

diff --git a/extensions/corfu-info.el b/extensions/corfu-info.el
index c9bf1b96a3..615e5d6a3d 100644
--- a/extensions/corfu-info.el
+++ b/extensions/corfu-info.el
@@ -87,7 +87,7 @@
               (goto-char (point-min))
               (forward-line (1- (cdr loc))))
             (set-window-start nil (point)))))
-    (user-error "Location is unknown")))
+    (user-error "No location available")))
 
 ;; Emacs 28: Do not show Corfu commands with M-X
 (put #'corfu-info-location 'completion-predicate #'ignore)
diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el
index 77beac627d..657574cc36 100644
--- a/extensions/corfu-popupinfo.el
+++ b/extensions/corfu-popupinfo.el
@@ -329,11 +329,8 @@ the candidate popup, its value is 'bottom, 'top, 'right or 
'left."
               (setf face-remapping-alist (copy-tree face-remapping-alist)
                     (alist-get 'default face-remapping-alist) 
'corfu-popupinfo))
           (unless (eq corfu-popupinfo--toggle 'init)
-            (message
-             ;; TODO support custom functions, don't hard code the error!
-             (if (eq corfu-popupinfo--function 
#'corfu-popupinfo--get-documentation)
-                 "No documentation available"
-               "Location is unknown")))
+            (message "No %s available"
+                     (last (split-string (symbol-name 
corfu-popupinfo--function) "-+"))))
           (corfu-popupinfo--hide)
           (setq doc-changed nil coords-changed nil corfu-popupinfo--toggle 
nil)))
       (when (or doc-changed coords-changed)