branch master updated: etc: snippets: Fix name extraction.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

ngz pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 988a49c  etc: snippets: Fix name extraction.
988a49c is described below

commit 988a49c78ef19ad25cef543e2059a19db04bbd36
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Fri Dec 4 17:09:38 2020 +0100

    etc: snippets: Fix name extraction.
    
    * etc/snippets/text-mode/guix-commit-message-update-package: Since git 
commit
    mode is not derived from any Lisp mode, so-called sexp or symbols do not
    include the period character.  As a consequence, names including versions 
are
    not properly extracted. Also use more idiomatic (goto-char (point-min))
    instead of (beginning-of-buffer).
---
 etc/snippets/text-mode/guix-commit-message-update-package | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/etc/snippets/text-mode/guix-commit-message-update-package 
b/etc/snippets/text-mode/guix-commit-message-update-package
index 2cdb6ea..f187419 100644
--- a/etc/snippets/text-mode/guix-commit-message-update-package
+++ b/etc/snippets/text-mode/guix-commit-message-update-package
@@ -7,12 +7,12 @@
 gnu: ${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)))`}: Update to 
${2:`(with-temp-buffer
+           (goto-char (point-min))
+           (when (re-search-forward "(define-public \\(\\S-+\\)" nil 'noerror)
+             (match-string-no-properties 1)))`}: Update to 
${2:`(with-temp-buffer
     (magit-git-wash #'magit-diff-wash-diffs
       "diff" "--staged")
-    (beginning-of-buffer)
+    (goto-char (point-min))
     (search-forward "name" nil 'noerror)
     (search-forward "+" nil 'noerror)   ; first change
     (when (and (search-forward "version " nil 'noerror)