From a815becb63b48c472ee0b405c00db6a188ad6ddc Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 18 Oct 2024 14:55:40 -0400 Subject: [PATCH] * 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 "'.")))) -- 2.30.2