From: Stefan Monnier Date: Fri, 18 Oct 2024 18:55:40 +0000 (-0400) Subject: * lisp/emacs-lisp/pcase.el (pcase--make-docstring): Fix bug#73766 X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~2^2~20^2~344 X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=a815becb63b48c472ee0b405c00db6a188ad6ddc;p=emacs.git * lisp/emacs-lisp/pcase.el (pcase--make-docstring): Fix bug#73766 Do not merge to `master`. --- 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 "'."))))