GNU bug report logs - #66504
[PATCH] etc: snippets: Do not match unintended quotes.

Previous Next

To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 66504 in the body.
You can then email your comments to 66504 AT debbugs.gnu.org in the normal way.

Toggle the display of automated, internal messages from the tracker.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Liliana Marie Prikler <liliana.prikler <at> gmail.com>
To: guix-patches <at> gnu.org
Subject: [PATCH] etc: snippets: Do not match unintended quotes.
Date: Thu, 12 Oct 2023 20:19:08 +0200

* etc/snippets/tempel/scheme-mode (origin): Unquote ‘git-fetch’, ‘svn-fetch’,
‘hg-fetch’, ‘cvs-fetch’, and ‘bzr-fetch’.  Use ‘otherwise’ instead of ‘t’.
---
 etc/snippets/tempel/scheme-mode | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

diff --git a/etc/snippets/tempel/scheme-mode b/etc/snippets/tempel/scheme-mode
index ef73a1e595..249f4ce8e3 100644
--- a/etc/snippets/tempel/scheme-mode
+++ b/etc/snippets/tempel/scheme-mode
@@ -18,32 +18,32 @@ scheme-mode
  "(origin"
  n> "(method " (p "url-fetch" method) ")"
  n> "(uri " (cl-case (and method (intern method))
-              ('git-fetch "git-reference...")
-              ('svn-fetch "svn-reference...")
-              ('hg-fetch  "hg-reference...")
-              ('cvs-fetch "cvs-reference...")
-              ('bzr-fetch "bzr-reference...")
-              (t          "\"https://...\""))
+              (git-fetch "git-reference...")
+              (svn-fetch "svn-reference...")
+              (hg-fetch  "hg-reference...")
+              (cvs-fetch "cvs-reference...")
+              (bzr-fetch "bzr-reference...")
+              (otherwise "\"https://...\""))
  ")"
  n>
  (cl-case (and method (intern method))
-   ('git-fetch
+   (git-fetch
     (insert "(file-name (git-file-name name version))")
     (newline)
     (indent-according-to-mode))
-   ('hg-fetch
+   (hg-fetch
     (insert "(file-name (hg-file-name name version))")
     (newline)
     (indent-according-to-mode))
-   ('svn-fetch
+   (svn-fetch
     (insert "(file-name (string-append name \"-\" version \"-checkout\"))")
     (newline)
     (indent-according-to-mode))
-   ('cvs-fetch
+   (cvs-fetch
     (insert "(file-name (string-append name \"-\" version \"-checkout\"))")
     (newline)
     (indent-according-to-mode))
-   ('bzr-fetch
+   (bzr-fetch
     (insert "(file-name (string-append name \"-\" version \"-checkout\"))")
     (newline)
     (indent-according-to-mode))

base-commit: 1328c4cca531318e3ed90c6aecb522a5b22a4bcc
prerequisite-patch-id: c1e8930b4fa8edf38130d45c5205a019b6e26dc7
prerequisite-patch-id: 730b3b393d9502ebb6b8339f7ead9589cec71c6f
prerequisite-patch-id: 1fdb09d54aa0ba3082f9501119c9810a36b0c66a
prerequisite-patch-id: 355921c4b3df14383f153b3ba8eb4d0ae6f0ab6c
-- 
2.41.0

Message #10 received at 66504-done <at> debbugs.gnu.org (full text, mbox):

From: Liliana Marie Prikler <liliana.prikler <at> gmail.com>
To: 66504-done <at> debbugs.gnu.org
Subject: Re: [PATCH] etc: snippets: Do not match unintended quotes.
Date: Sun, 15 Oct 2023 12:33:05 +0200

Am Donnerstag, dem 12.10.2023 um 20:19 +0200 schrieb Liliana Marie
Prikler:
> * etc/snippets/tempel/scheme-mode (origin): Unquote ‘git-fetch’,
> ‘svn-fetch’,
> ‘hg-fetch’, ‘cvs-fetch’, and ‘bzr-fetch’.  Use ‘otherwise’ instead of
> ‘t’.
> ---
Pushed.

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.