Merge pull request #177 from armindarvish/develop

fix unbalanced parenthesis for issue view action
armindarvish · Dec 23, 2024 · 34cb2de · 34cb2de
2 parents 26261b9 + 821b4c5
commit 34cb2de
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 8 deletions.
diff --git a/consult-gh.el b/consult-gh.el
@@ -3766,15 +3766,15 @@ see `consult-gh--issue-view-action'."
           ('gfm-mode
            (gfm-mode)
            (when (display-images-p)
-             (markdown-display-inline-images))))
+             (markdown-display-inline-images)))
           ('markdown-mode
            (markdown-mode)
            (when (display-images-p)
              (markdown-display-inline-images)))
           ('org-mode
            (let ((org-display-remote-inline-images 'download))
              (consult-gh--markdown-to-org)))
-          (-
+          (_
            (consult-gh--markdown-to-org-emphasis)
            (outline-mode)))
         (set-buffer-file-coding-system 'unix)
@@ -3785,7 +3785,7 @@ see `consult-gh--issue-view-action'."
         (outline-hide-sublevels 1)
         (consult-gh-issue-view-mode +1)
         (setq-local consult-gh--topic topic)
-        (current-buffer))))
+        (current-buffer)))))
 
 (defun consult-gh--issue-view-action (cand)
   "Open the preview of an issue candidate, CAND.
@@ -5957,7 +5957,7 @@ ADMIN is a boolean, determining whether the commit message is for a merge
        (':commit
         (consult-gh-pr--merge-create-commit pr "merge" auto admin))
        (':submit
-        (and (y-or-n-p "This will merge the pull reqeust on GitHub.  Do you want to continue??")
+        (and (y-or-n-p "This will merge the pull reqeust on GitHub.  Do you want to continue?")
              (consult-gh-pr--merge-submit pr :merge t :auto auto :admin admin)))))
     (':rebase
      (and (y-or-n-p "This will merge the pull reqeust with a rebase commit on GitHub.  Do you want to continue?")

diff --git a/consult-gh.org b/consult-gh.org
@@ -4227,15 +4227,15 @@ see `consult-gh--issue-view-action'."
           ('gfm-mode
            (gfm-mode)
            (when (display-images-p)
-             (markdown-display-inline-images))))
+             (markdown-display-inline-images)))
           ('markdown-mode
            (markdown-mode)
            (when (display-images-p)
              (markdown-display-inline-images)))
           ('org-mode
            (let ((org-display-remote-inline-images 'download))
              (consult-gh--markdown-to-org)))
-          (-
+          (_
            (consult-gh--markdown-to-org-emphasis)
            (outline-mode)))
         (set-buffer-file-coding-system 'unix)
@@ -4246,7 +4246,7 @@ see `consult-gh--issue-view-action'."
         (outline-hide-sublevels 1)
         (consult-gh-issue-view-mode +1)
         (setq-local consult-gh--topic topic)
-        (current-buffer))))
+        (current-buffer)))))
 
 #+end_src
 ********** view action
@@ -6660,7 +6660,7 @@ ADMIN is a boolean, determining whether the commit message is for a merge
        (':commit
         (consult-gh-pr--merge-create-commit pr "merge" auto admin))
        (':submit
-        (and (y-or-n-p "This will merge the pull reqeust on GitHub.  Do you want to continue??")
+        (and (y-or-n-p "This will merge the pull reqeust on GitHub.  Do you want to continue?")
              (consult-gh-pr--merge-submit pr :merge t :auto auto :admin admin)))))
     (':rebase
      (and (y-or-n-p "This will merge the pull reqeust with a rebase commit on GitHub.  Do you want to continue?")