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

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

[elpa] externals/taxy f8558ab 28/42: Fix: (deffy-project) Arguments


From: ELPA Syncer
Subject: [elpa] externals/taxy f8558ab 28/42: Fix: (deffy-project) Arguments
Date: Wed, 15 Sep 2021 12:57:31 -0400 (EDT)

branch: externals/taxy
commit f8558ab750d32e080b071ec2ea6e06d78eef794b
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Fix: (deffy-project) Arguments
---
 examples/deffy.el | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/examples/deffy.el b/examples/deffy.el
index f6d6c75..c5f4295 100644
--- a/examples/deffy.el
+++ b/examples/deffy.el
@@ -218,16 +218,15 @@ Interactively, with prefix, display in dedicated side 
window."
     :keys (remove 'file deffy-taxy-default-keys)
     :display-buffer-action display-buffer-action))
 
-(cl-defun deffy-project
-    (&optional (project (or (project-current)
-                           (cons 'transient default-directory)))
-              &key display-buffer-action)
+(cl-defun deffy-project (&optional project &key display-buffer-action)
   "Show an Deffy view for PROJECT.
 Interactively, with prefix, display in dedicated side window."
   (interactive
    (list nil :display-buffer-action (when current-prefix-arg
                                      deffy-side-window-action)))
-  (deffy :project project
+  (deffy :project (or project
+                     (project-current)
+                     (cons 'transient default-directory))
     :display-buffer-action display-buffer-action))
 
 (defun deffy-revert (_ignore-auto _noconfirm)



reply via email to

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