From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 16 Mar 2024 11:07:52 +0000 (+0200)
Subject: Fix 'shortdoc-copy-function-as-kill'
X-Git-Tag: archive/raspbian/1%29.4+1-4+rpi1~1^2~2^2~18^2~23
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=8cf05d9be12e8b5f8893cfd8a67c92e904a2aa05;p=emacs.git

Fix 'shortdoc-copy-function-as-kill'

* lisp/emacs-lisp/shortdoc.el (shortdoc-copy-function-as-kill):
Fix handling of functions with no arguments.  (Bug#69720)
---

diff --git a/lisp/emacs-lisp/shortdoc.el b/lisp/emacs-lisp/shortdoc.el
index 75ac7b3d52c..fdba6d32418 100644
--- a/lisp/emacs-lisp/shortdoc.el
+++ b/lisp/emacs-lisp/shortdoc.el
@@ -1675,7 +1675,7 @@ With prefix numeric argument ARG, do it that many times."
   (interactive)
   (save-excursion
     (goto-char (pos-bol))
-    (when-let* ((re (rx bol "(" (group (+ (not (in " "))))))
+    (when-let* ((re (rx bol "(" (group (+ (not (in " )"))))))
                 (string
                  (and (or (looking-at re)
                           (re-search-backward re nil t))