diff options
| author | Eli Zaretskii | 2024-03-16 13:07:52 +0200 |
|---|---|---|
| committer | Eli Zaretskii | 2024-03-16 13:07:52 +0200 |
| commit | 8cf05d9be12e8b5f8893cfd8a67c92e904a2aa05 (patch) | |
| tree | 0fcdb8515da2ca4c194ce8a11c3e015a224bd0b1 | |
| parent | d5901f3f05e0aec9bf4b6b4b6ebf27c66c7cee14 (diff) | |
| download | emacs-8cf05d9be12e8b5f8893cfd8a67c92e904a2aa05.tar.gz emacs-8cf05d9be12e8b5f8893cfd8a67c92e904a2aa05.zip | |
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)
| -rw-r--r-- | lisp/emacs-lisp/shortdoc.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 1675 | (interactive) | 1675 | (interactive) |
| 1676 | (save-excursion | 1676 | (save-excursion |
| 1677 | (goto-char (pos-bol)) | 1677 | (goto-char (pos-bol)) |
| 1678 | (when-let* ((re (rx bol "(" (group (+ (not (in " ")))))) | 1678 | (when-let* ((re (rx bol "(" (group (+ (not (in " )")))))) |
| 1679 | (string | 1679 | (string |
| 1680 | (and (or (looking-at re) | 1680 | (and (or (looking-at re) |
| 1681 | (re-search-backward re nil t)) | 1681 | (re-search-backward re nil t)) |