emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/go-mode c8525e627d 1/7: Remove superfluous quotes from cl-


From: ELPA Syncer
Subject: [nongnu] elpa/go-mode c8525e627d 1/7: Remove superfluous quotes from cl-case branches
Date: Wed, 28 Dec 2022 12:59:14 -0500 (EST)

branch: elpa/go-mode
commit c8525e627d2ddef8e13e4e25403cbc6b3a819c07
Author: Dominik Honnef <dominik@honnef.co>
Commit: Dominik Honnef <dominik@honnef.co>

    Remove superfluous quotes from cl-case branches
---
 go-mode.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/go-mode.el b/go-mode.el
index 8bc912e1ab..be7e0a08b2 100644
--- a/go-mode.el
+++ b/go-mode.el
@@ -2206,18 +2206,18 @@ uncommented, otherwise a new import will be added."
       (if (re-search-forward (concat "^[[:space:]]*//[[:space:]]*import " line 
"$") nil t)
           (uncomment-region (line-beginning-position) (line-end-position))
         (cl-case (go-goto-imports)
-          ('fail (message "Could not find a place to add import."))
-          ('block-empty
+          (fail (message "Could not find a place to add import."))
+          (block-empty
            (insert "\n\t" line "\n"))
-          ('block
+          (block
               (save-excursion
                 (re-search-backward "^import (")
                 (setq import-start (point)))
             (if (re-search-backward (concat "^[[:space:]]*//[[:space:]]*" line 
"$")  import-start t)
                 (uncomment-region (line-beginning-position) 
(line-end-position))
               (insert "\n\t" line)))
-          ('single (insert "import " line "\n"))
-          ('none (insert "\nimport (\n\t" line "\n)\n")))))))
+          (single (insert "import " line "\n"))
+          (none (insert "\nimport (\n\t" line "\n)\n")))))))
 
 (defun go-root-and-paths ()
   (let* ((output (process-lines go-command "env" "GOROOT" "GOPATH"))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]