[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/02: etc: snippets: Fix name extraction.
From: |
guix-commits |
Subject: |
01/02: etc: snippets: Fix name extraction. |
Date: |
Fri, 4 Dec 2020 12:21:01 -0500 (EST) |
ngz pushed a commit to branch master
in repository guix.
commit 39e8bc2ab8f755e05050f2dcbf07143e724d22ed
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Fri Dec 4 18:19:39 2020 +0100
etc: snippets: Fix name extraction.
* etc/snippets/text-mode/guix-commit-message-add-package: Fix name
extraction. This is a follow-up to 988a49c78ef19ad25cef543e2059a19db04bbd36.
---
etc/snippets/text-mode/guix-commit-message-add-package | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/etc/snippets/text-mode/guix-commit-message-add-package
b/etc/snippets/text-mode/guix-commit-message-add-package
index e54a06d..7cebd40 100644
--- a/etc/snippets/text-mode/guix-commit-message-add-package
+++ b/etc/snippets/text-mode/guix-commit-message-add-package
@@ -6,8 +6,8 @@
gnu: Add ${1:`(with-temp-buffer
(magit-git-wash #'magit-diff-wash-diffs
"diff" "--staged")
- (beginning-of-buffer)
- (when (search-forward "+(define-public " nil 'noerror)
- (thing-at-point 'sexp 'no-properties)))`}.
+ (goto-char (point-min))
+ (when (re-search-forward "\\+(define-public \\(\\S-+\\)" nil
'noerror)
+ (match-string-no-properties 1)))`}.
* `(car (magit-staged-files))` ($1): New variable.
\ No newline at end of file