fix unbalanced parenthesis in issue-view action

armindarvish · Dec 23, 2024 · 821b4c5 · 821b4c5
1 parent ee75beb
commit 821b4c5
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 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.

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