emacs-30 a815becb63b: * lisp/emacs-lisp/pcase.el (pcase--make-docstring): Fix bug#73766

[Stefan Monnier]

branch: emacs-30
commit a815becb63b48c472ee0b405c00db6a188ad6ddc
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * lisp/emacs-lisp/pcase.el (pcase--make-docstring): Fix bug#73766
    
    Do not merge to `master`.
---
 lisp/emacs-lisp/pcase.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/emacs-lisp/pcase.el b/lisp/emacs-lisp/pcase.el
index 5a7f3995311..e9b2980d3ed 100644
--- a/lisp/emacs-lisp/pcase.el
+++ b/lisp/emacs-lisp/pcase.el
@@ -181,7 +181,6 @@ Emacs Lisp manual for more information and examples."
   (let* ((main (documentation (symbol-function 'pcase) 'raw))
          (ud (help-split-fundoc main 'pcase)))
     (require 'help-fns)
-    (declare-function help-fns-short-filename "help-fns" (filename))
     (declare-function help-fns--signature "help-fns"
                       (function doc real-def real-function buffer))
     (with-temp-buffer
@@ -214,7 +213,9 @@ Emacs Lisp manual for more information and examples."
               (save-excursion
                 (forward-char -1)
                 (insert (format-message "  in `"))
-                (help-insert-xref-button (help-fns-short-filename filename)
+                ;; `file-name-nondirectory' is naive, but
+                ;; `help-fns-short-filename' is not fast enough yet 
(bug#73766).
+                (help-insert-xref-button (file-name-nondirectory filename)
                                          'help-function-def symbol filename
                                          'pcase-macro)
                 (insert (format-message "'."))))